ฟอรั่มของบล็อก http://pssix.blogspot.com


มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

Share
avatar
Pochi
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 66
ความนิยม : 1
เข้าร่วมเมื่อ : 22/10/2010

มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Pochi on 23/07/12, 05:55 pm

หลังจากที่ผมได้พยายายามทำระบบ login เผื่อจำกัดการใช้งาน (เวลายกเลิกหรือไม่ต้องใช้งานโปรของเรา ก็แค่เปลี่ยนหรือลบ id pass ออก) แต่ทำอย่างไงก็ไม่ได้สักทีครับ ติดปัญหาที่มันไม่อ่านคอนโทล (http://pssix.forumotion.com/t837-topic)

มีวิธีอื่นเพื่อจำกัดสิทธิ์ในการใช้งานไหมครับ แต่เคยเห็นโปรที่สร้างจาก autoit อยู่ตัวนึ่งที่เหมือนกับว่าตรวจสอบจากลิ้งค์เว็บ พอเปิดโปรแกรมก็จะเด้งหน้าเว็บขึ้นมาด้วย (ประมา๊ณถ้าเว็บเข้าได้ถึงจะใช้โปรได้ ถ้า้เว็บเข้าไม่ได้โปรก็จะใช้งานไม่ได้)

หรือมีวิธีอื่นๆ อีกแนะนำด้วยครับ em229
avatar
Pochi
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 66
ความนิยม : 1
เข้าร่วมเมื่อ : 22/10/2010

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Pochi on 31/07/12, 02:06 pm

อัพกระทู้ครับ em229

Fast
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Program Coder
จำนวนข้อความ : 217
ความนิยม : 54
เข้าร่วมเมื่อ : 19/06/2011

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Fast on 31/07/12, 06:31 pm

จะทำโปรเก็บตัง ไม่มีเซิฟทำไม่ได้หรอกคน login จะเช็กจากไหนละ em234 ลงทุ่นไหนจะหาเงินเข้ากระเป๋าตัวเองแล้วไปเช่าเซิฟทำฐานข้อมูลเลย [You must be registered and logged in to see this link.]
avatar
Pochi
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 66
ความนิยม : 1
เข้าร่วมเมื่อ : 22/10/2010

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Pochi on 03/08/12, 11:02 am

Fast พิมพ์ว่า:จะทำโปรเก็บตัง ไม่มีเซิฟทำไม่ได้หรอกคน login จะเช็กจากไหนละ em234 ลงทุ่นไหนจะหาเงินเข้ากระเป๋าตัวเองแล้วไปเช่าเซิฟทำฐานข้อมูลเลย [You must be registered and logged in to see this link.]

ขอบคุณครับ คุณ Fast สำหรับ [You must be registered and logged in to see this link.]

ส่วนตัว login ผมทำให้ใช้งานได้แล้วครับ เอาไฟล์ .php ไว้ที่โฮลเรียบร้อยแล้วลองดึงข้อมูล user pass จาก sql ของเว็บบอร์ดครับ
ผลปรากฏว่า login ผ่านครับ แต่พอเอาสคิปโปรมาใส่ error อย่างที่เห็นครับ ผมจะให้ใช้งานฟรีครับ แต่อยากจะบังคับให้คนที่เป็นสมาชิกเว็บเท่านั้นครับ

ส่วนเรื่องความปลอดภัยผมก็ได้เข้ารหัสไว้เรียบร้อยแล้วครับ
SendUrl: [You must be registered and logged in to see this link.]

Code:
#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")                              
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 ไม่ถูกต้อง")      
   ElseIf $WEBdata ="SUCESSFULL" Then
      $Checktime = _INetGetSource($WebFileLoc &'?mod=username=' & $UsernameInput )
      msgbox(0,"Welcome","เข้าสู่ระบบเรียบร้อยแล้ว สวัสดีคุณ " & $UsernameInput & @lf & @lf & "" )
   Else
      MsgBox(0,"เกิดข้อผิดพลาด","เกิดข้อผิดพลา่ดจากเซิฟเวอร์ฺ กรุณาติดต่อผู้ดูแลระบบ"  )
   EndIf
EndIf
EndFunc



Fast
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Program Coder
จำนวนข้อความ : 217
ความนิยม : 54
เข้าร่วมเมื่อ : 19/06/2011

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Fast on 03/08/12, 03:57 pm

แกล้งทำเป็นไม่รู้เปล่าครับท่าน ตัวอย่างจากท่านแอดมินก๊อปใส่สคริ๊ปง่ายนิดเดียว em232



#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

avatar
Pochi
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 66
ความนิยม : 1
เข้าร่วมเมื่อ : 22/10/2010

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Pochi on 03/08/12, 10:11 pm

Fast พิมพ์ว่า:แกล้งทำเป็นไม่รู้เปล่าครับท่าน ตัวอย่างจากท่านแอดมินก๊อปใส่สคริ๊ปง่ายนิดเดียว em232



Code:
#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


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

ส่วนเรื่องตัวอย่างผมก็ทดลองกับตัวอื่นๆ และตัวที่คุณ POS ให้มาประยุกค์แล้วครับ ผลปรากฏว่าตัวอย่างและตัวที่คุณ POS ให้มาประยุกค์มันทำงานได้ตามปกติครับ ที่มีปัญหาคือโค้ดด้านล่างชุดนี้ครับ

Code:
Func _ gui2()

$Form1 = GUICreate("PSsix Combo", 324, 158, 623, 147)
GUISetBkColor(0x053B77)
$Checkbox1 = GUICtrlCreateCheckbox("1", 16, 24, 41, 17)
$Checkbox2 = GUICtrlCreateCheckbox("2", 16, 56, 41, 17)
$Checkbox3 = GUICtrlCreateCheckbox("3", 16, 88, 41, 17)
$Input1 = GUICtrlCreateInput("1", 152, 24, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$Input2 = GUICtrlCreateInput("2", 152, 56, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$Input3 = GUICtrlCreateInput("1", 152, 88, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$Combo1 = GUICtrlCreateCombo("", 64, 24, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "a|b|c|d")
$Combo2 = GUICtrlCreateCombo("", 64, 56, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "a|b|c|d")
$Combo3 = GUICtrlCreateCombo("", 64, 88, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "a|b|c|d")
$Label1 = GUICtrlCreateLabel(" b", 16, 120, 203, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("เริ่ม", 232, 16, 75, 25)
GUICtrlSetBkColor(-1, 0x0967C5)
GUISetState(@SW_SHOW)


While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
      Case $GUI_EVENT_CLOSE
        Exit

      Case $Button1
        combo()
  EndSwitch
WEnd

EndFunc ;-->  _gui2()

Func combo()
  While 1
      If GUICtrlRead($Checkbox1) = 1 Then
        Send("{" & GUICtrlRead($Combo1) & "}")
        GUICtrlSetData($Label1, "combo 1 *")
        Sleep(GUICtrlRead($Input1) & "000")
      EndIf

      If GUICtrlRead($Checkbox2) = 1 then
        Send("{" & GUICtrlRead($Combo2) & "}")
        GUICtrlSetData($Label1, "combo 2 **")
        Sleep(GUICtrlRead($Input2) & "000")
      EndIf


      If GUICtrlRead($Checkbox3) = 1 Then
        Send("{" & GUICtrlRead($Combo3) & "}")
        GUICtrlSetData($Label1, "combo 3 ***")
        Sleep(GUICtrlRead($Input3) & "000")
      EndIf

      Sleep(10)
  WEnd

EndFunc

ถ้าลองใช้โค้ด login + โค้ดด้านบน แล้วรันดูมันจะ error เป็นแบบนี้ครับ

Code:

C:\Documents and Settings\My Computer\Desktop\Loing.au3(152,32) : WARNING: $Checkbox1: possibly used before declaration.
      If GUICtrlRead($Checkbox1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(153,40) : WARNING: $Combo1: possibly used before declaration.
        Send("{" & GUICtrlRead($Combo1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(154,32) : WARNING: $Label1: possibly used before declaration.
        GUICtrlSetData($Label1,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(155,35) : WARNING: $Input1: possibly used before declaration.
        Sleep(GUICtrlRead($Input1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(158,32) : WARNING: $Checkbox2: possibly used before declaration.
      If GUICtrlRead($Checkbox2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(159,40) : WARNING: $Combo2: possibly used before declaration.
        Send("{" & GUICtrlRead($Combo2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(161,35) : WARNING: $Input2: possibly used before declaration.
        Sleep(GUICtrlRead($Input2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(165,32) : WARNING: $Checkbox3: possibly used before declaration.
      If GUICtrlRead($Checkbox3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(166,40) : WARNING: $Combo3: possibly used before declaration.
        Send("{" & GUICtrlRead($Combo3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(168,35) : WARNING: $Input3: possibly used before declaration.
        Sleep(GUICtrlRead($Input3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(152,32) : ERROR: $Checkbox1: undeclared global variable.
      If GUICtrlRead($Checkbox1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(153,40) : ERROR: $Combo1: undeclared global variable.
        Send("{" & GUICtrlRead($Combo1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(154,32) : ERROR: $Label1: undeclared global variable.
        GUICtrlSetData($Label1,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(155,35) : ERROR: $Input1: undeclared global variable.
        Sleep(GUICtrlRead($Input1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(158,32) : ERROR: $Checkbox2: undeclared global variable.
      If GUICtrlRead($Checkbox2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(159,40) : ERROR: $Combo2: undeclared global variable.
        Send("{" & GUICtrlRead($Combo2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(161,35) : ERROR: $Input2: undeclared global variable.
        Sleep(GUICtrlRead($Input2)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(165,32) : ERROR: $Checkbox3: undeclared global variable.
      If GUICtrlRead($Checkbox3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(166,40) : ERROR: $Combo3: undeclared global variable.
        Send("{" & GUICtrlRead($Combo3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3(168,35) : ERROR: $Input3: undeclared global variable.
        Sleep(GUICtrlRead($Input3)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\My Computer\Desktop\Loing.au3 - 10 error(s), 10 warning(s)

แล้วผมก็ลองเขียนโค้ดแบบใหม่ ให้ทำงานเหมือนเดิม(เหมือนสคิปด้านบน) ตามที่คุณ POS ให้มาประยุกค์ ผมไม่สามารถประยุกค์ได้ครับ ก็เลยจะลองหาวิธีอื่นดูหน่ะครับ em229

ส่วนตัว login ใช้งานได้ครับ นำไปประยุกค์ใช้กับสคิปอื่นๆ ได้หลายตัวเลยครับ

Fast
PSsix Member Super Class III
PSsix Member Super Class III

PSsix Program Coder
จำนวนข้อความ : 217
ความนิยม : 54
เข้าร่วมเมื่อ : 19/06/2011

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Fast on 04/08/12, 01:58 pm

เก็บสคริ๊ปไว้ให้ดีนะท่าน สคริ๊ปเข้ารหัสเพื่อนท่านตอนนี้โดนคนต่างประเทศลอกไปแล้ว em234

[You must be registered and logged in to see this link.]
avatar
Pochi
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 66
ความนิยม : 1
เข้าร่วมเมื่อ : 22/10/2010

Re: มีวิธีจำกัดการใช้งานโปรแกรมของเราไหมครับ

ตั้งหัวข้อ by Pochi on 04/08/12, 05:16 pm

Fast พิมพ์ว่า:เก็บสคริ๊ปไว้ให้ดีนะท่าน สคริ๊ปเข้ารหัสเพื่อนท่านตอนนี้โดนคนต่างประเทศลอกไปแล้ว em234

[You must be registered and logged in to see this link.]

เรื่อง login+สคิปผมของเอง ผมไปต่อไม่เป็นเลย ตอนนี้กำลังมองวิธีอื่นดูครับ มีแนะนำไหมครับ em229

(ส่วนเรื่องโดนลอกคงไม่ใช่นะครับ สงสัยไป copy จากลิ้งค์ที่คุณ Fast บอกมาแล้วมาทำให้ผมอีกที เพราะวันโพสมันปี 2007 ครับ) em232

    เวลาขณะนี้ 22/10/17, 07:59 am