Jump to content

HELP RUN APLICATION AFTER VERIFICATION


Recommended Posts

hello I found the following script, the more I'm not getting it open, for example notepad after verification.

Func validate($iLicense)
    Local $o_IE
    Dim $html_text
  
    ; Create IE obect
    $o_IE = ObjCreate("Shell.Explorer.2")
    ; Create Validation GUI
    GuiCreate("Licensing", 300, 45,-1, -1)
    ; Create IE object in the GUI
    GUICtrlCreateObj($o_IE, 0, 0, 1, 1)
  
    ; Load Validation URL into object
    $o_IE.navigate2($page & "?ilicense=" & $iLicense)
  
    ; Wait for IE Object to load page
    While $o_IE.Busy
        Sleep(10)
    WEnd
  
    ; Split HTML source return by "~"
    $html_text = StringSplit($o_IE.document.body.innerHTML, "~")
  
    ; Fire notification if stringsplit failed due to page not loading.
    If @error Then
        MsgBox(4096, "Error", "Cannot connect to page!")
        Exit
    EndIf
  
    ; Delete GUI since we are no longer using it.
    GUIDelete()
  
    ; Check for return by PHP page
    If $html_text[2] = "yes" Then
        return 1
    Else
        return 0
    EndIf
EndFunc ; Address of webpage, must be globaled in main script
Global $page = "www.mysite.com/check.php"
; Check for valid code, if not then exit
if validate("12345") = 0 then Exit
EndFunc
Func Runp() ;
  Run("notepad.exe");
EndFunc

help please and sorry my bad english!

Edited by ramonzitoo
Link to comment
Share on other sites

Global $page = "www.mysite.com/check.php"

; Check for valid code, if not then exit
if validate("12345") = 1 then Runp()

Exit

Func validate($iLicense)
    Local $o_IE
    Dim $html_text
  
    ; Create IE obect
    $o_IE = ObjCreate("Shell.Explorer.2")
    ; Create Validation GUI
    GuiCreate("Licensing", 300, 45,-1, -1)
    ; Create IE object in the GUI
    GUICtrlCreateObj($o_IE, 0, 0, 1, 1)
  
    ; Load Validation URL into object
    $o_IE.navigate2($page & "?ilicense=" & $iLicense)
  
    ; Wait for IE Object to load page
    While $o_IE.Busy
        Sleep(10)
    WEnd
  
    ; Split HTML source return by "~"
    $html_text = StringSplit($o_IE.document.body.innerHTML, "~")
  
    ; Fire notification if stringsplit failed due to page not loading.
    If @error Then
        MsgBox(4096, "Error", "Cannot connect to page!")
        Exit
    EndIf
  
    ; Delete GUI since we are no longer using it.
    GUIDelete()
  
    ; Check for return by PHP page
    If $html_text[2] = "yes" Then
        return 1
    Else
        return 0
    EndIf
EndFunc ; Address of webpage, must be globaled in main script

Func Runp() ;
  Run("notepad.exe");
EndFunc

Teamspeak 3 User Viewer - Quick and functional TS3 Query script, which shows online users.Cached Screenshot Deleter - Deletes older Fraps Screenshots if they exceed a specified limit.Unresolved Topics:Intercept and modify dragdrop text behaviour in scite
Link to comment
Share on other sites

As with the above script would be if the serial was accepted returns a welcome message, otherwise it returns an error message!

Sorry i do not understand, is this a question?

And what should return a welcome message, the script, the validate function or the webpage?

Teamspeak 3 User Viewer - Quick and functional TS3 Query script, which shows online users.Cached Screenshot Deleter - Deletes older Fraps Screenshots if they exceed a specified limit.Unresolved Topics:Intercept and modify dragdrop text behaviour in scite
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...