רוטר - עזרה בבניית סקריפט vb

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה בבניית סקריפט vb"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #15085	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 15085

s_h
חבר מתאריך 18.6.06
566 הודעות

16:50 02.12.08

עזרה בבניית סקריפט vb

יש לי אתר שמוצג בצורה אחת למשתמשים רשומים ובצורה שונה למשתמשים אורחים.
כדי להכנס לאתר בתור משתמש רשום צריך להכנס לכתובת כך:
http://www.example.com/kn_cust_entry.aspx?1=userid&2=he&3=username
כאשר ב userid צריך להכניס את המספר משתמש במערכת, וב username את השם משתמש. אחרי שנכנסים עם הפרטים הנכונים נוצר קובץ קוקיס ששומר את הפרטים.
אני מעוניין בסקריפט vbs שכשמשתמש יפעיל אותו יעלה לו חלון שבו הוא יתבקש להכניס שם משתמש וללחוץ על אישור ואז יופיע חלון שבו הוא יתבקש להכניס את מספר זיהוי המשתמש שלו וללחוץ על אישור ולחיצה על אישור תפתח דף אאינטרנט עם הכתובת שנתתי למעלה ולפי הפרטים שהמשתמש הזין לסקריפט.
אפשרי לעשות דבר כזה? אשמח לעזרה ואם אפשר לקוד לדוגמא.

תודה מראש
שי.

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
כנס:	Yaadm1986	10.12.08 16:22	1
תודה רק תיקון קטן.	s_h	10.12.08 23:51	2
בבקשה:	Yaadm1986	11.12.08 11:16	3

Yaadm1986

16:22 10.12.08

1. כנס:
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 10.12.08 בשעה 16:25 בברכה, Yaadm1986

מאוד פשוט
תהנה:
Option Explicit
Dim objShell, UserName, UserID
Set objShell = CreateObject("WScript.Shell")
UserName = InputBox ("UserName")
UserID = InputBox ("UserID")

ObjShell.Run "http://www.example.com/kn_cust_entry.aspx?1="& UserID & "2=he&3=" & UserName

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

s_h
חבר מתאריך 18.6.06
566 הודעות

23:51 10.12.08

2. תודה רק תיקון קטן.
בתגובה להודעה מספר 1

השורה האחרונה צריכה להיות כך:
ObjShell.Run "http://www.example.com/kn_cust_entry.aspx?1="& UserID & "&2=he&3=" & UserName
תודה.
עוד שאלה קטנה אם אפשר.

שייך עבור המשתנה 2 להציב שאלת בחירה עם האפשרויות HE או EN?

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Yaadm1986

11:16 11.12.08

3. בבקשה:
בתגובה להודעה מספר 2

Option Explicit
Dim objShell, UserName, UserID, Lang, intAnswer
Set objShell = CreateObject("WScript.Shell")
UserName = InputBox ("UserName")
UserID = InputBox ("UserID")
intAnswer = Msgbox("Do you want Hebrew Language?", vbYesNo, "Language")
If intAnswer = vbYes Then
Lang = "HE"
Else
Lang = "EN"
End If

ObjShell.Run "http://www.example.com/kn_cust_entry.aspx?1="& UserID & "&2=" & Lang & "&3=" & UserName

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד