แกล้งทำเป็นไม่รู้เปล่าครับท่าน ตัวอย่างจากท่านแอดมินก๊อปใส่สคริ๊ปง่ายนิดเดียว
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Func _RC4EncDec($key, $value)
Local $S[256], $i, $j, $c, $t, $x, $y, $output
Local $keyLength = BinaryLen($key), $valLength = BinaryLen($value)
For $i = 0 To 255
$S[$i] = $i
Next
For $i = 0 To 255
$j = Mod($j + $S[$i] + Dec(StringTrimLeft(BinaryMid($key, Mod($i, $keyLength)+1, 1),2)),256)
$t = $S[$i]
$S[$i] = $S[$j]
$S[$j] = $t
Next
For $i = 1 To $valLength
$x = Mod($x+1,256)
$y = Mod($S[$x]+$y,256)
$t = $S[$x]
$S[$x] = $S[$y]
$S[$y] = $t
$j = Mod($S[$x]+$S[$y],256)
$c = BitXOR(Dec(StringTrimLeft(BinaryMid($value, $i, 1),2)), $S[$j])
$output = Binary($output) & Binary('0x' & Hex($c,2))
Next
Return $output
EndFunc
$WebFileLoc = "http://localhost/api/get.php"
$sKey = "ionair"
$Login = GUICreate("Login",220,100)
$User = GUICtrlCreateInput("test",10,10)
$Pass = GUICtrlCreateInput("123456",10,40,-1,-1,$ES_PASSWORD)
$OKbutton = GUICtrlCreateButton("Login",110,70,100)
$Exit = GUICtrlCreateButton("Exit",10,70,100)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit
Exit
Case $msg = $OKbutton
_login()
EndSelect
WEnd
func _login()
$UsernameInput = GUICtrlRead($User)
$PasswordInput = GUICtrlRead($Pass)
$Rc4_User = _RC4EncDec($sKey, GUICtrlRead($User))
$Rc4_Pass = _RC4EncDec($sKey, GUICtrlRead($Pass))
if $UsernameInput = "" or $PasswordInput = "" Then
MsgBox(0,"ERROR","Please Enter a Username and Password")
;;;;; จะให้ออกที่ไหนใส่ที่ตรงนั้น
GUIDelete($Login)
gui2()
Else
$WEBdata = _INetGetSource($WebFileLoc &'?username=' & $Rc4_User & '&password=' & $Rc4_Pass)
ConsoleWrite("SendUrl: " & $WebFileLoc &'?username=' & $Rc4_User & '&password=' & $Rc4_Pass & @LF)
if $WEBdata = "ERROR" Then
MsgBox(0,"Error","เกิดข้อผิดพลาด" & " Username หรือ Password ไม่ถูกต้อง")
;;;;; จะให้ออกที่ไหนใส่ที่ตรงนั้น
GUIDelete($Login)
gui2()
ElseIf $WEBdata ="SUCESSFULL" Then
$Checktime = _INetGetSource($WebFileLoc &'?mod=username=' & $UsernameInput )
msgbox(0,"Welcome","เข้าสู่ระบบเรียบร้อยแล้ว สวัสดีคุณ " & $UsernameInput & @lf & @lf & "" )
;;;;; จะให้ออกที่ไหนใส่ที่ตรงนั้น
GUIDelete($Login)
gui2()
Else
MsgBox(0,"เกิดข้อผิดพลาด","เกิดข้อผิดพลา่ดจากเซิฟเวอร์ฺ กรุณาติดต่อผู้ดูแลระบบ" )
;;;;; จะให้ออกที่ไหนใส่ที่ตรงนั้น
GUIDelete($Login)
gui2()
EndIf
EndIf
EndFunc
Func gui2()
$Form1 = GUICreate("gui2", 346, 133, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 152, 16, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 256, 16, 75, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 16, 32, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 16, 64, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 16, 96, 97, 17)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Form1
Case $Button1
MsgBox(0, "", "xxxx")
Case $Button2
MsgBox(0, "", "xxxxxxx")
Case $Checkbox1
MsgBox(0, "", "111")
Case $Checkbox2
MsgBox(0, "", "2222")
Case $Checkbox3
MsgBox(0, "", "3333")
EndSwitch
WEnd
EndFunc