17-11-2009, 16:56
|
|
|
חבר מתאריך: 19.02.05
הודעות: 114
|
|
עזרה| יש לי קוד קטן ב VBS צריך עזרה
אוקיי אני בניתי מערכת לניהול מעבדת מחשבים.[.php]
עכשיו אני הוספתי לדוחות ברקוד ואני צריך תוכנה שתשב לי ברקע ותקפיץ את המערכת ברגע שהיא מקבלת ברקוד, עכשיו חיפשתי ברשת ומצאתי איזה סקריפט שעושה את זה, עכשיו התעמקתי בזה קצת והוספתי לזה לולאה ושיניתי את כל העסק שזה יתאים לי, הבעייה שלי היא כך עשיתי לולאה של 1000 פעם, עכשיו אני רוצה לדעת איך אני עושה שאם לוחצים על ביטול זה יפסיק ת'לולאה
קוד:
dim Window
dim id
dim url
url=InputBox("אנא הכנס את הכתובת המלאה של המערכת:")
For i=0 To 1000
id=InputBox("ממתין לברקוד:")
set Window = CreateObject("InternetExplorer.Application")
Window.RegisterAsBrowser = True
Window.Navigate("http://" & url &"/msclm/view_p.php?id=" & id)
Window.MenuBar = True
Window.ToolBar = True
Window.AddressBar = True
Window.StatusBar = True
Window.FullScreen = False
Window.Resizable = True
Window.Visible = True
Window.Width = 420
Window.Height = 487
Next
תודה רבה
|