VBS มีคำสั่งที่ทำงานคล้ายๆ GOTO ใน Dos หรือคำสั่ง Func ใน Autoit ไหมครับ

คือ ผมจะมีปัญหาเมื่อ กรอกรหัสผิด หน้าต่างจะปิดไปเลยครับ ผมอยากให้ขึ้น InputBox มาใหม่จนกว่าจะกรอกรหัสผ่านถูก หรือกด Cancel อะครับ

Code:

strName=InputBox("โปรดกรอกรหัสผ่าน","กรอกรหัสผ่าน")

If strName = ""Then
Wscript.quit(1)
End If

If strName >< 30012540 Then
MsgBox "รหัสผ่านผิด โปรดกรอกใหม่", 0, "รหัสผ่านผิด"
End If


If strName = 30012540 Then
MsgBox "รหัสผ่านถูกต้อง", 0, "OK"
MsgBox "ขออภัย คุณโดนหลอก", 0, "ขออภัย"
End If

เขียนautoitเปนจะใช้vbsไปทำมัยเหอเหอ อันนี้รวมคำสั่ง vbsไปหาดูสะ [You must be registered and logged in to see this link.] หาไม่ได้ก้อไปถามที่อื่นนะนายนี่บอดautoitไม่ใช่บอดvbs

aut พิมพ์ว่า:เขียนautoitเปนจะใช้vbsไปทำมัยเหอเหอ อันนี้รวมคำสั่ง vbsไปหาดูสะ [You must be registered and logged in to see this link.] หาไม่ได้ก้อไปถามที่อื่นนะนายนี่บอดautoitไม่ใช่บอดvbs

ผมอยากจะเรียนรู้หลายๆภาษาครับ และผมหาแล้วไม่มีเลยครับ เว็บที่เกี่ยวกับการเขียน VBS ผมหาไม่เจอครับ

googleช่วยท่านได้ กรอกได้สามครั้ง xxx เป็นรหัสถูกต้องจะเข้า google

Code:

Set objShell = CreateObject("Wscript.Shell")
dim password
password=InputBox("Please Enter Password:","3 - Tries Left")
if password = ("xxx") then
   dim correct
   correct =MsgBox("Correct Password!",64,"correct")
   objShell.Run("http://www.google.co.th")
Else
   dim again
   again =MsgBox("Incorect Password! Do You Want To Try Again?",53,"Incorect Password!")
   If again = 4 Then
   dim password2
   password2=InputBox("Please Enter Password:","2 - Tries Left")
   if password2 = ("xxx") then
      dim correct2
      correct2 =MsgBox("Correct Password!",64,"correct")
      objShell.Run("http://www.google.co.th")
   Else
      dim again2
      again2 =MsgBox("Incorect Password! Do You Want To Try Again?",53,"Incorect Password!")
      If again2 = 4 Then
      dim password3
      password3=InputBox("Please Enter Password:","1 - Tries Left")
      if password3 = ("xxx") then
         dim correct3
         correct3 =MsgBox("Correct Password!",64,"correct")
         objShell.Run("http://www.google.co.th")
      Else
         dim again3
         again3 =MsgBox("Incorect Password! Do You Want To Try Again?",53,"Incorect Password!")
         If again3 = 4 Then
            dim incorect
            incorect =MsgBox("To many incorect passwords! Program will now lock!",16,"WARNIG!!")
            objShell.Run("-------YOUR FAIL LINK HERE--------")
               end if
            end if
         end if
      end if
   end if
end if

ถามภาษาอื่นไปถามที่พันทิปครับเซียนเยอะมีคนตอบได้ชัวร์ บอร์ดนี้เฉพาะ AutoIt เอามาถามแบบนี้เหมือนจงใจถามมั่วจะหาเรื่อง คิดอีกแบบคือไม่รู้จักมารยาทสังคม บอร์ดก็ตั้งชื่อ AutoIt มาถามภาษาอื่น ใครจะรู้ทุกเรื่องครับ หรือว่าท่านรู้ทุกอย่าง ขออภัยพูดแบบนี้ แต่จริงใจนะ จะบอกให้

Fast พิมพ์ว่า:ถามภาษาอื่นไปถามที่พันทิปครับเซียนเยอะมีคนตอบได้ชัวร์ บอร์ดนี้เฉพาะ AutoIt เอามาถามแบบนี้เหมือนจงใจถามมั่วจะหาเรื่อง คิดอีกแบบคือไม่รู้จักมารยาทสังคม บอร์ดก็ตั้งชื่อ AutoIt มาถามภาษาอื่น ใครจะรู้ทุกเรื่องครับ หรือว่าท่านรู้ทุกอย่าง ขออภัยพูดแบบนี้ แต่จริงใจนะ จะบอกให้

ขออภัย ที่ถามผิดที่ผิดทางครับ

ถ้าสนใจภาษาไหนก็เอาให้เข้าใจในภาษานั้นๆ ไปเลยจะดีกว่าครับ

การศึกษาที่ละ 1 ภาษาจนชำนาญแล้วค่อยไปศึกษาภาษาถัดไป จะใช้เวลาและได้ผลลัพธ์ที่ดีกว่ามานั่งศึกษาทั้งหมดพร้อมกัน


ซึ่งวิธีการคิดแบบที่ผมว่า ไม่ใช่การคิดแนวใหม่ แต่เป็นแนวคิดที่คนโบราณค้นพบมานานแล้วดังคำสำนวนว่า

"อันความรู้รู้กระจ่างแต่อย่างเดียว แต่ให้เชี่ยวชาญเถิดคงเกิดผล"
-มาจากโคลงของพระยาศรีสุนทรโวหาร (น้อย อาจารยางกูร)

อ๊าก ชอบครับๆ

"อันความรู้รู้กระจ่างแต่อย่างเดียว แต่ให้เชี่ยวชาญเถิดคงเกิดผล"

ขอเอาไปแปะท้ายเอ็ม

แลัวถ้าผมไม่เป็นภาษาอะไรเลยจะเริ่มจากไหนดีละครับ

ต้องถามก่อนว่าคุณสนใจศึกษาภาษาด้วยจุดประสงค์อะไร

1. อยากเรียนเขียนโปรแกรมให้มีพื้นฐานแน่นก็ศึกษา C++
2. อยากทำโปรแกรมเร็วๆ มีแหล่งความรู้ และตัวอย่างโปรแกรมจำนวนมากก็ VB
3. เอาไว้ทำงานหาเงินเป็นที่ต้องการก็ Java หรือจะต่อยอดไปศึกษาสร้างโปรแกรม (ส่วนใหญ่เกมส์)ในแอนดรอยด์
4. ว่างๆ ไม่รู้จะทำอะไร หรือแค่ user ใช้งานวินโดวส์ทั่วไปอยากเพิ่มความสามารถตนเองก็ AutoIt

การเขียนโปรแกรมจะว่าไปก็เหมือนศาสตร์ความรู้อื่นๆ บางคนวาดรูปได้สวย, บางคนทำอาหารได้อร่อย, บางคนเล่นกีฬาบางประเภทได้ดีกว่าคนอื่น จะรู้ได้อย่างไรว่าเราเหมาะกับสิ่งไหน ก็ต้องทดลองทำดูครับ ถ้ามันไปไม่ได้จริงๆ ก็เลิกไปไม่มีใครว่า ดีกว่าไปดันทุรังทำสิ่งที่ไม่ถนัด นอกจากทำได้ไม่ดีแล้วยังสร้างภาระแก่ตนเองด้วย

หมายเหตุ
ยังมีภาษาคอมพิวเตอร์อื่นๆ อีกเป็นจำนวนมากนอกจากที่กล่าวมา แต่แน่นอนว่าในภาษาอื่น หากคุณสนใจศึกษาต้องค้นหาความรู้ด้วยตนเองจากแหล่งความรู้ภาษาต่างประเทศเป็นส่วนใหญ่ ซึ่งไม่เหมาะสำหรับผู้เริ่มต้นเนื่องจากขั้นตอนการแปลถอดความอาจเกิดความผิดพลาดได้ง่าย หากไม่มีพื้นฐานด้านภาษาอะไรมาเลย