สร้างรหัสผ่าน ก่อนรันโปรแกรม ยังไง และคำถามอื่นอยู่ด้านในครับ

ผม อยากได้ Code AutoIt ประมานนี้ครับ เพื่อเป็นแนวทางการเขียนโปรแกรม ครับ

1.เมื่อกดใช่โปรแกรม ถามหารหัสผ่านก่อนทุกครั้ง
3.เขียนให้ รหัส ผ่าน หมด อายุตามกำหนด หรือทุกเดือน ทุกปี
3.อยาก เขียนให้ ดึงลิงค์เว็บไซต์ ที่อยู่ใน Text หรือไฟร์อื่น  ขึนมาเปิด ที่ระ1 เว็บ
  แล้ว เปิดใหม่ อีก 1 เว็บ ให้เปิดทับน่า เว็บเดิมเดิม ไปเลื่อยๆครับ
4.สร้างฟรอม เพื่อ ใส่โคด เวลา สี หรือโคด รหัส น่า จอ คลิกเม้า และอื่นๆ ขึนมา
5.สร้างฟรอมใสข้อความ เพิมเติม เพือ โพสลง น่าเว็บ คลาย กับ กด Ctrl+v

ผมได้เขียนโคด ขึนมา ปะมาน 3 วัน เพื่อทดลองใช้ดูบ้างแล้ว แต่เขียนจาก แนว ทางการ ทำ ฺBot

ผมก็เลยอยากได้แนวทาง ในการเขียนตามหัวข้อ ด้านบน เพิมเติมครับ ช่วยผมหน่อยนะครับ
ถ้าได้เป็น Code เลยจะขอบคุณ มากเลยครับ ขอบคุณรวง หน้าครับ ทุกๆท่าน

พี่ดู Code นี้แล้วพี่คง มองภาพกันออกนะครับ ว่ามัน เป็นยังไง

****************************************************

Code:


Global $GameHD

HotKeySet("{ESC}", "Terminate")

Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
If @error Then
MsgBox(4096, "Error", "NOTAB")
Else
Return 1
EndIf
EndFunc

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)

If WinExists("System Configuration") Then WinActivate("System Configuration")

ShellExecute("C:\Program Files\Google\Chrome\Application\Chrome.exe", "http://www.google.co.th")

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

ControlSend($GameHD, "", "", " https://www.facebook.com/groups/342552659120185")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",340,315,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

$coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

ControlSend($GameHD, "", "", " https://www.facebook.com/groups/225279930912258")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",350,465,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

$coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(9000)

Func Terminate()
Exit 0
EndFunc


*******************************************************

ดูจากโค๊ด ยังไม่น่าที่จะสร้างระบบความปลอดภัย หรืออะไรเพิ่มเติมนะครับ ผมว่าคุณควร ปรับปรุง โค๊ดหลักของคุณให้มีประสิทธิภาพในการทำงานก่อน โค๊ดที่ได้มาจาก Au3Recorder ไม่มีคุณภาพพอหรอกครับ เราต้องหามารตรฐานของโปรแกรมเราให้เจอครับ เมื่อรันทุกครั้งต้องทำงานตามที่หวังผลไว้ได้แน่นอน ซึ่งผมขอแนะนำให้คุณไปศึกษาเกี่ยวกับฟังชั่น _IE...() (ศึกษาได้โดยการกด F1 ในโปรแกรม Autoit ครับ เมื่อคุณเข้าใจที่ผมกล่าวไว้แล้ว ผมก็ยินดีตอบสิ่งที่คุณต้องการทั้ง 5 ข้อครับ

ปล.สอนให้หาปลาดีกว่า หาปลามาให้นะครับ

ขอบคุณครับท่าน  oolsopts สำหรับ แนวทาง ผมได้ลองศึกษาดูบ้างแล้วนิดหน่อย
แต่เนื่องจาก คอมผมมั่นรัน IE ไม่ได้นะครับ

พอจะมีวิธีอื่นไหม ครับ พอดีผมยาก ให้มันรัน จาก google Chrome  
เนื่องจาก คอมผมไม่สมารถ รัน IE ได้ ครับผม ขอบคุณครับ


ส่วนอันนี้ ผมได้ไปเจอโคด ใส้รหัสพาสเวิด มาผม เลย ลองเอา มา แก้ แล้ว ใส่รวมๆ กันดู
มันเลยออกมาเป็นแบบนี้อะครับ บาง สวนก็เข้าใจแต่บ้างส่วนก็งง ดีฮ่าๆ

Code:


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "Terminate")

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Opt("MustDeclareVars", 2)

main()
Func main()
Global $Input1, $Input2, $Button1, $nMsg
Global $pass = "12345", $conpass = "12345"

GUICreate("Password Protection Sample", 448, 186, 290, 260)
GUISetFont(10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 128, 48, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input2 = GUICtrlCreateInput("", 128, 96, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlCreateLabel("กรุณาใส่ข้อมูลให้ถูกต้อง", 144, 8, 161, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("OK", 176, 144, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("UserName:", 56, 48, 67, 20)
GUICtrlCreateLabel("PassWord:", 56, 96, 67, 20)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$pass = GUICtrlRead($Input1)
$conpass = GUICtrlRead($Input2)
Select
Case $pass = "" And $conpass = ""
      MsgBox(48, "", "ท่านยังไม่ได้ใส่ข้อมูล.")

Case $pass = "12345" And $conpass = ""
  MsgBox(48, "", "กรุณาใส่ PassWord")

Case $pass = "" And $conpass = "12345"
  MsgBox(48, "", "กรุณาใส่ UserName")

Case $pass <> "12345" And $conpass = ""
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass <> "12345" And $pass = ""
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass <> "12345" And $conpass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass = "12345" And $pass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass = "12345" And $conpass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass <> "12345" And $pass = "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass = "12345" And $conpass = "12345"
  MsgBox(64, "", "รหัสถูกต้อง.")


ShellExecute("C:\Program Files\Google\Chrome\Application\Chrome.exe", "http://www.google.co.th")

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

Send(" https://www.facebook.com/groups/342552659120185")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",340,315,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

Local $coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

Send(" https://www.facebook.com/groups/225279930912258")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",350,465,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

$coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(9000)

           Exit

EndSelect
EndSwitch
WEnd
EndFunc

Func Terminate()
Exit 0
EndFunc


autoit ไม่มี ฟังชั่นสนับสนุน ของ Chrome ครับ ยากที่จะทำให้สคริปทำงานร่วมกับ Chromeได้สมบูรณ์ คุณลองรัน Code นี้ดูครับ ถ้ารันแล้ว มันสามารถเปิด google.com ได้ แปลว่า คุณสามารถใช้ ฟังชั่น _IE ได้ครับ

Code:


#include <IE.au3>
#include <GUIConstantsEx.au3>

$hgui = GUICreate("IE",500,500)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 0, 0, 500, 500)
GUISetState()
;$oIE.navigate("http://launcher.playpark.com/lostsaga/")
_IENavigate($oIE,"www.google.co.th",1)

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

 Case $GUI_EVENT_CLOSE

 Exit

Endswitch

wend


ส่วน Code เกี่ยวกับ รหัสผ่านที่คุณนำมาใช้ ผมอยากให้คุณมอง Code ให้ออกว่าแต่ละบรรทัดทำหน้าที่อะไรบ้าง (โดยดูหน้าที่ของมันได้จาก F1 ของ Autoit) จะได้ไม่ต้องเขียน Code ให้สิ้นเปลือง

ส่วนเรื่อง ครอบ Function คุณไม่จำเป็นต้องครอบ ทุกคำสั่งที่คุณเขียน หรอกครับ คุณลองศึกษาวิธีการใช้ Function ได้จาก F1 เช่นกันครับ

ดู Code ที่ผมแก้ แล้วพิจารณาดูครับ

Code:

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)

Global $id, $pass, $Button1, $nMsg
Global $oid = "12345", $opw = "12345"

GUICreate("Password Protection Sample", 448, 186, 290, 260)
GUISetFont(10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 128, 48, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input2 = GUICtrlCreateInput("", 128, 96, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlCreateLabel("กรุณาใส่ข้อมูลให้ถูกต้อง", 144, 8, 161, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("OK", 176, 144, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("UserName:", 56, 48, 67, 20)
GUICtrlCreateLabel("PassWord:", 56, 96, 67, 20)

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

 Case $GUI_EVENT_CLOSE

 Exit

 Case $Button1

 $id = GUICtrlRead($Input1)

 $pass = GUICtrlRead($Input2)


 Select

 Case $id = "" Or $pass = ""

 MsgBox(48, "", "ท่านยังไม่ได้ใส่ข้อมูล.")

 Case $id <> $oid Or $pass <> $opw

 MsgBox(48, "", "ข้อมูลไม่ถูกต้อง")

 Case $id = $oid And $pass = $opw

 MsgBox(0, "", "ยินดีต้อนรับคุณ "&$id)

 start() ;เริ่มฟังชั่นการทำงาน

 EndSelect

EndSwitch

WEnd

Func start()

     ;คำสั่งเริ่มการทำงาน

Endfunc


eroieroieroi พิมพ์ว่า:ขอบคุณครับท่าน foolsopts สำหรับ แนวทาง ผมได้ลองศึกษาดูบ้างแล้วนิดหน่อย
แต่เนื่องจาก คอมผมมั่นรัน IE ไม่ได้นะครับ

พอจะมีวิธีอื่นไหม ครับ พอดีผมยาก ให้มันรัน จาก google Chrome  
เนื่องจาก คอมผมไม่สมารถ รัน IE ได้ ครับผม ขอบคุณครับ


ส่วนอันนี้ ผมได้ไปเจอโคด ใส้รหัสพาสเวิด มาผม เลย ลองเอา มา แก้ แล้ว ใส่รวมๆ กันดู
มันเลยออกมาเป็นแบบนี้อะครับ บาง สวนก็เข้าใจแต่บ้างส่วนก็งง ดีฮ่าๆ

Code:


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "Terminate")

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)
Opt("MustDeclareVars", 2)

main()
Func main()
Global $Input1, $Input2, $Button1, $nMsg
Global $pass = "12345", $conpass = "12345"

GUICreate("Password Protection Sample", 448, 186, 290, 260)
GUISetFont(10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 128, 48, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input2 = GUICtrlCreateInput("", 128, 96, 185, 24, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlCreateLabel("กรุณาใส่ข้อมูลให้ถูกต้อง", 144, 8, 161, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("OK", 176, 144, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("UserName:", 56, 48, 67, 20)
GUICtrlCreateLabel("PassWord:", 56, 96, 67, 20)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$pass = GUICtrlRead($Input1)
$conpass = GUICtrlRead($Input2)
Select
Case $pass = "" And $conpass = ""
      MsgBox(48, "", "ท่านยังไม่ได้ใส่ข้อมูล.")

Case $pass = "12345" And $conpass = ""
  MsgBox(48, "", "กรุณาใส่ PassWord")

Case $pass = "" And $conpass = "12345"
  MsgBox(48, "", "กรุณาใส่ UserName")

Case $pass <> "12345" And $conpass = ""
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass <> "12345" And $pass = ""
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass <> "12345" And $conpass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass = "12345" And $pass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass = "12345" And $conpass <> "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $conpass <> "12345" And $pass = "12345"
  MsgBox(48, "", "รหัสผิด ลองใหม่")

Case $pass = "12345" And $conpass = "12345"
  MsgBox(64, "", "รหัสถูกต้อง.")


ShellExecute("C:\Program Files\Google\Chrome\Application\Chrome.exe", "http://www.google.co.th")

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

Send(" https://www.facebook.com/groups/342552659120185")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",340,315,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

Local $coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(4000)

Send("{altdown}")

Send("{d}")

Send("{altup}")

Sleep(3000)

Send(" https://www.facebook.com/groups/225279930912258")

Sleep(4000)

Send ("{ENTER}")

Sleep(9000)

MouseClick("left",350,465,1,10)

Sleep(5000)

Send("{ctrldown}")

send("{v}")

Send("{ctrlup}")

Sleep(9000)

$coord = PixelSearch( 199,303, 714,606, 0x5D76AA )
If Not @error Then
MouseClick("left",$coord[0] ,$coord[1],1,0)

EndIf

Sleep(9000)

           Exit

EndSelect
EndSwitch
WEnd
EndFunc

Func Terminate()
Exit 0
EndFunc