How many people have used my IM or FTP FUNCS

themax90 · December 26, 2004

Just one quick question and I am gonna disable replies. How many people have used my IM program or ftp funcs.

Just want FeedBack, Thanks. If what you felt was not covered by the poll please express your hatred, joy, excitment, or whatever possible feeling in this post. No Flames Please, Can You Send Flames to my email or Pm? Thanks. (Just trying to have as good a rep as possible)

Agent Smith

P.S. Here are the FTP Funcs..

http://www.autoitscript.com/fileman/users/public/Agent%20Smith/Func/FTPfunc.au3

Website(crummy but atleast it's there):

http://www.autoitscript.com/fileman/users/public/Agent%20Smith/Func/ftp.htm

Ftp Uploading and Downloading :

    _FtpUploadTo

    _FtpDownloadTo

To Implement:

1. Write #include <FTPfunc.au3> at the beginning of your script.

2. Copy source to bottom of script.

Required:

FFC Excutable ~ http://www.autoitscript.com/fileman/users/public/Agent%20Smith/FFC/ffc.exe

Source:

Func _FtpDownloadTo($user, $pass, $ip, $dir, $file)
If $dir = "" Then
$dir = "/"
EndIf
Run(@ScriptDir & "\ffc.exe " & $ip, @ScriptDir & "\", @SW_HIDE)
sleep(200)
ControlSend(@ScriptDir & "\ffc.exe", "", "", $user & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", $pass & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "cd " & $dir & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "get " & $file & "{enter}", 0)
sleep(200)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "bye{enter}", 0)
EndFunc

Func _FtpUploadTo($user, $pass, $ip, $dir, $file)
If $dir = "" Then
$dir = "/"
EndIf
Run(@ScriptDir & "\ffc.exe " & $ip, @ScriptDir & "\", @SW_HIDE)
sleep(200)
ControlSend(@ScriptDir & "\ffc.exe", "", "", $user & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", $pass & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "cd " & $dir & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "put " & $file & "{enter}", 0)
ControlSend(@ScriptDir & "\ffc.exe", "", "", "bye{enter}", 0)
EndFunc

Syntax:

Call(_FtpDownloadTo("Username", "Password", "URL of Host", "SubDirectory of File. Default is /", "File To Download"))


Call(_FtpUploadTo("Username", "Password", "URL of Host", "Destination Folder of File. Default is /", "File in script directory to upload"))

Download: http://www.autoitscript.com/fileman/users/public/Agent Smith/Func/FTPfunc.au3

Edited December 26, 2004 by Agent Smith

Valik · December 26, 2004

A good suggestion for having a good reputation is to flip about 180 degrees from your current behavior of insisting people do things in weird ways; being impatient about getting replies; being so secretive about posting your code when you clearly need help with something; posting your issues as an AutoIt bug before posting it in support to get help from experienced people; et cetera.

themax90 · December 26, 2004

There are 3 votes of sucky ness, and why do you jackholes think that way?

sykes · December 26, 2004

Can't speak for everyone, but I believe it just may be your sucky attitude about things

themax90 · December 26, 2004

Here is the autoit source but I am not giving out the C++ source. I hope people can learn from just the autoit source because unless somone pays for the C++ source I have been working on for much longer then anything and is the gist of the last year(besides ffc).

Here it is, this is the current one that is buggy and I am trying to fix.

FileInstall("core.exe", @ScriptDir & "\core.exe")
FileInstall("icon.ico", @ScriptDir & "\icon.ico")
FileInstall("readme.txt", @ScriptDir & "\readme.txt")
Break(0)
Dim $dip_1, $dip_2, $dip_3, $dip_4, $set_1 = -1, $set_2 = -1, $set_3 = -1, $set_4 = -1
#include <GuiConstants.au3>
GUICreate("MChat", 440, 200)
$tab = GUICtrlCreateTab(0, 0, 440, 200);3
$tab_1 = GUICtrlCreateTabItem("1");4
$label_1 = GUICtrlCreateLabel( "Chat Not Started", 120, 30, 100, 15);5
$clear_1 = GUICtrlCreateButton("Clear Data", 120, 160, 90, 30);6
$label_1a = GUICtrlCreateLabel("Your Message To:", 10, 30, 100, 15);7
$message_1 = GUICtrlCreateEdit("", 10, 50, 200, 100);8
$send_1 = GUICtrlCreateButton("Send Message", 10, 160, 100, 30);9
$label_1b = GUICtrlCreateLabel("Destination Ip Address:", 270, 25, 160, 15);10
$ip_1 = GUICtrlCreateInput("", 245, 45, 160, 20);11
$label_1c = GUICtrlCreateLabel("Destination Port:", 270, 70, 120, 15);12
$port_1 = GUICtrlCreateInput("", 245, 90, 160, 20);13
$label_1d = GUICtrlCreateLabel("Listening Port:", 270, 115, 120, 15);14
$listen_1 = GUICtrlCreateInput("", 245, 135, 160, 20);15
$start_1 = GUICtrlCreateButton("Connect and Start....", 267.5, 160, 110, 30);16
$tab_2 = GUICtrlCreateTabItem("2");17
$label_2 = GUICtrlCreateLabel( "Chat Not Started", 120, 30, 100, 30);18
$clear_2 = GUICtrlCreateButton("Clear Data", 120, 160, 90, 30);19
$label_2a = GUICtrlCreateLabel("Your Message To:", 10, 30, 100, 15);20
$message_2 = GUICtrlCreateEdit("", 10, 50, 200, 100);21
$send_2 = GUICtrlCreateButton("Send Message", 10, 160, 100, 30);22
$label_2b = GUICtrlCreateLabel("Destination Ip Address:", 270, 25, 160, 15);23
$ip_2 = GUICtrlCreateInput("", 245, 45, 160, 20);24
$label_2c = GUICtrlCreateLabel("Destination Port:", 270, 70, 120, 15);25
$port_2 = GUICtrlCreateInput("", 245, 90, 160, 20);26
$label_2d = GUICtrlCreateLabel("Listening Port:", 270, 115, 120, 15);27
$listen_2 = GUICtrlCreateInput("", 245, 135, 160, 20);28
$start_2 = GUICtrlCreateButton("Connect and Start....", 267.5, 160, 110, 30);29
$tab_3 = GUICtrlCreateTabItem("3");30
$label_3 = GUICtrlCreateLabel( "Chat Not Started", 120, 30, 100, 30);31
$clear_3 = GUICtrlCreateButton("Clear Data", 120, 160, 90, 30);32
$label_3a = GUICtrlCreateLabel("Your Message To:", 10, 30, 100, 15);33
$message_3 = GUICtrlCreateEdit("", 10, 50, 200, 100);34
$send_3 = GUICtrlCreateButton("Send Message", 10, 160, 100, 30);35
$label_3b = GUICtrlCreateLabel("Destination Ip Address:", 270, 25, 160, 15);36
$ip_3 = GUICtrlCreateInput("", 245, 45, 160, 20);37
$label_3c = GUICtrlCreateLabel("Destination Port:", 270, 70, 120, 15);38
$port_3 = GUICtrlCreateInput("", 245, 90, 160, 20);39
$label_3d = GUICtrlCreateLabel("Listening Port:", 270, 115, 120, 15);40
$listen_3 = GUICtrlCreateInput("", 245, 135, 160, 20);41
$start_3 = GUICtrlCreateButton("Connect and Start....", 267.5, 160, 110, 30);42
$tab_4 = GUICtrlCreateTabItem("4");43
$label_4 = GUICtrlCreateLabel( "Chat Not Started", 120, 30, 100, 30);44
$clear_4 = GUICtrlCreateButton("Clear Data", 120, 160, 90, 30);45
$label_4a = GUICtrlCreateLabel("Your Message To:", 10, 30, 100, 15);46
$message_4 = GUICtrlCreateEdit("", 10, 50, 200, 100);47
$send_4 = GUICtrlCreateButton("Send Message", 10, 160, 100, 30);48
$label_4b = GUICtrlCreateLabel("Destination Ip Address:", 270, 25, 160, 15);49
$ip_4 = GUICtrlCreateInput("", 245, 45, 160, 20);50
$label_4c = GUICtrlCreateLabel("Destination Port:", 270, 70, 120, 15);51
$port_4 = GUICtrlCreateInput("", 245, 90, 160, 20);52
$label_4d = GUICtrlCreateLabel("Listening Port:", 270, 115, 120, 15);53
$listen_4 = GUICtrlCreateInput("", 245, 135, 160, 20);54
$start_4 = GUICtrlCreateButton("Connect and Start....", 267.5, 160, 110, 30);55
GUISetState()
GUICreate("Exit", 230, 70, (@DesktopWidth - 200) / 2, (@DesktopHeight - 450) / 2)
$exit_1 = GUICtrlCreateButton("Exit Core 1", 10, 10, 100, 20)
$exit_2 = GUICtrlCreateButton("Exit Core 2", 120, 10, 100, 20)
$exit_3 = GUICtrlCreateButton("Exit Core 3", 10, 40, 100, 20)
$exit_4 = GUICtrlCreateButton("Exit Core 4", 120, 40, 100, 20)
GUISetState()
While 1
   $msg = GUIGetMsg()
   $check_1 = WinExists("Core 1")
   $check_2 = WinExists("Core 2")
   $check_3 = WinExists("Core 3")
   $check_4 = WinExists("Core 4")
   If $msg = 4102 Then
      $set_1 = 0
      ControlSend("Core 1", "", "", "Connection Closed. Chat Terminated.{enter}")
      WinClose("Core 1")
      GUICtrlSetData($ip_1, "")
      GUICtrlSetData($port_1, "")
      GUICtrlSetData($listen_1, "")
      GUICtrlSetData($message_1, "")
   EndIf
   If $msg = 4103 Then
      $set_2 = 0
      ControlSend("Core 2", "", "", "Connection Closed. Chat Terminated.{enter}")
      WinClose("Core 2")
      GUICtrlSetData($ip_2, "")
      GUICtrlSetData($port_2, "")
      GUICtrlSetData($listen_2, "")
      GUICtrlSetData($message_2, "")
   EndIf
   If $msg = 4104 Then
      $set_3 = 0
      ControlSend("Core 3", "", "", "Connection Closed. Chat Terminated.{enter}")
      WinClose("Core 3")
      GUICtrlSetData($ip_3, "")
      GUICtrlSetData($port_3, "")
      GUICtrlSetData($listen_3, "")
      GUICtrlSetData($message_3, "")
   EndIf
   If $msg = 4105 Then
      $set_4 = 0
      ControlSend("Core 4", "", "", "Connection Closed. Chat Terminated.{enter}")
      WinClose("Core 4")
      GUICtrlSetData($ip_4, "")
      GUICtrlSetData($port_4, "")
      GUICtrlSetData($listen_4, "")
      GUICtrlSetData($message_4, "")
   EndIf
   If $check_1 = 1 And $set_1 = 1 Then
      GUICtrlSetData($label_1, $dip_1)
      $set_1 = -1
   ElseIf $check_1 = 0 And $set_1 = 0 Then
      GUICtrlSetData($label_1, "")
      GUICtrlSetData($label_1, "Chat No Started")
      $set_1 = -1
      MsgBox(0, "Core 1 Closed", "Chat with " & $dip_1 & " closed.")
   EndIf
   If $check_2 = 1 And $set_2 = 1 Then
      GUICtrlSetData($label_2, $dip_2)
      $set_2 = -1
   ElseIf $check_2 = 0 And $set_2 = 0 Then
      GUICtrlSetData($label_2, "")
      GUICtrlSetData($label_2, "Chat No Started")
      $set_2 = -1
   EndIf
   If $check_3 = 1 And $set_3 = 1 Then
      $set_3 = -1
      GUICtrlSetData($label_3, $dip_3)
   ElseIf $check_3 = 0 And $set_3 = 0 Then
      GUICtrlSetData($label_3, "")
      GUICtrlSetData($label_3, "Chat No Started")
      $set_3 = -1
   EndIf
   If $check_4 = 1 And $set_4 = 1 Then
      $set_4 = -1
      GUICtrlSetData($label_4, $dip_4)
   ElseIf $check_4 = 0 And $set_4 = 0 Then
      GUICtrlSetData($label_4, "")
      GUICtrlSetData($label_4, "Chat No Started")
      $set_4 = -1
   EndIf
   If $msg = $GUI_EVENT_CLOSE Then
     ;FileDelete(@scriptDir & "\core.*")
     ;FileDelete(@scriptDir & "\readme.*")
     ;FileDelete(@scriptDir & "\icon.*")
      Exit
   EndIf
   If $msg = 6 Then
      GUICtrlSetData($message_1, "")
   ElseIf $msg = 19 Then
      GUICtrlSetData($message_2, "")
   ElseIf $msg = 32 Then
      GUICtrlSetData($message_3, "")
   ElseIf $msg = 41 Then
      GUICtrlSetData($message_4, "")
   EndIf
   If $msg = 9 Then
      If WinExists("Core 1") Then
         $send_1 = GUICtrlRead($message_1)
         ControlSend("Core 1", "", "", $send_1, 0)
         ControlSend("Core 1", "", "", "{enter}", 0)
         GUICtrlSetData($message_1, "")
      Else
         GUICtrlSetData($message_1, "")
         MsgBox(0, "Error", "There is no chat opened on this tab!!!  Please open chat before sending.")
      EndIf
   ElseIf $msg = 22 Then
      If WinExists("Core 2") Then
         $send_2 = GUICtrlRead($message_2)
         ControlSend("Core 2", "", "", $send_2, 1)
         ControlSend("Core 2", "", "", "{enter}", 0)
         GUICtrlSetData($message_2, "")
      Else
         GUICtrlSetData($message_2, "")
         MsgBox(0, "Error", "There is no chat opened on this tab!!!  Please open chat before sending.")
      EndIf
   ElseIf $msg = 35 Then
      If WinExists("Core 3") Then
         $send_3 = GUICtrlRead($message_3)
         ControlSend("Core 3", "", "", $send_3, 1)
         ControlSend("Core 3", "", "", "{enter}", 0)
         GUICtrlSetData($message_3, "")
      Else
         GUICtrlSetData($message_3, "")
         MsgBox(0, "Error", "There is no chat opened on this tab!!!  Please open chat before sending.")
      EndIf
   ElseIf $msg = 48 Then
      If WinExists("Core 4") Then
         $send_4 = GUICtrlRead($message_4)
         ControlSend("Core 4", "", "", $send_4, 1)
         ControlSend("Core 4", "", "", "{enter}", 0)
         GUICtrlSetData($message_4, "")
      Else
         GUICtrlSetData($message_4, "")
         MsgBox(0, "Error", "There is no chat opened on this tab!!!  Please open chat before sending.")
      EndIf
   EndIf
   If $msg = 16 Then
      $dip_1 = "" & GUICtrlRead($ip_1)
      $dport_1 = "" & GUICtrlRead($port_1)
      $lport_1 = "" & GUICtrlRead($listen_1)
      If $dip_1 = "" Or $dport_1 = "" Or $lport_1 = "" Then
         MsgBox(48, "Invalid amount of data", "It seems you did not complete one or more of the fields. Please complete all fields.")
      Else
         $set_1 = 1
         Run(@ScriptDir & "\core.exe")
         Sleep(200)
         WinSetTitle(@ScriptDir & "\core.exe", "", "Core 1")
         Sleep(200)
         ControlSend("Core 1", "", "", "Connected{Enter}", 0)
         Sleep(200)
         MsgBox(0, "Chat Ready", "Your chat with " & $dip_1 & " is ready.")
      EndIf
   EndIf
   If $msg = 29 Then
      $dip_2 = "" & GUICtrlRead($ip_2)
      $dport_2 = "" & GUICtrlRead($port_2)
      $lport_2 = "" & GUICtrlRead($listen_2)
      If $dip_2 = "" Or $dport_2 = "" Or $lport_2 = "" Then
         MsgBox(48, "Invalid amount of data", "It seems you did not complete one or more of the fields. Please complete all fields.")
      Else
         $set_2 = 1
         Run(@ScriptDir & "\core.exe")
         Sleep(200)
         WinSetTitle(@ScriptDir & "\core.exe", "", "Core 2")
         Sleep(200)
         ControlSend("Core 2", "", "", "Connected{Enter}", 0)
         Sleep(200)
         MsgBox(0, "Chat Ready", "Your chat with " & $dip_2 & " is ready.")
      EndIf
   EndIf
   If $msg = 42 Then
      $dip_3 = "" & GUICtrlRead($ip_3)
      $dport_3 = "" & GUICtrlRead($port_3)
      $lport_3 = "" & GUICtrlRead($listen_3)
      If $dip_3 = "" Or $dport_3 = "" Or $lport_3 = "" Then
         MsgBox(48, "Invalid amount of data", "It seems you did not complete one or more of the fields. Please complete all fields.")
      Else
         $set_3 = 1
         Run(@ScriptDir & "\core.exe")
         Sleep(200)
         WinSetTitle(@ScriptDir & "\core.exe", "", "Core 3")
         Sleep(200)
         ControlSend("Core 3", "", "", "Connected{Enter}", 0)
         Sleep(200)
         MsgBox(0, "Chat Ready", "Your chat with " & $dip_3 & " is ready.")
      EndIf
   EndIf
   If $msg = 55 Then
      $dip_4 = "" & GUICtrlRead($ip_4)
      $dport_4 = "" & GUICtrlRead($port_4)
      $lport_4 = "" & GUICtrlRead($listen_4)
      If $dip_4 = "" Or $dport_4 = "" Or $lport_4 = "" Then
         MsgBox(48, "Invalid amount of data", "It seems you did not complete one or more of the fields. Please complete all fields.")
      Else
         $set_4 = 1
         Run(@ScriptDir & "\core.exe")
         Sleep(200)
         WinSetTitle(@ScriptDir & "\core.exe", "", "Core 4")
         Sleep(200)
         ControlSend("Core 4", "", "", "Connected{Enter}", 0)
         Sleep(200)
         MsgBox(0, "Chat Ready", "Your chat with " & $dip_4 & " is ready.")
      EndIf
   EndIf
Wend

Now please can we be neutral

Edited December 26, 2004 by Agent Smith

phillip123adams · December 26, 2004

Here is the autoit source but I am not giving out the C++ source. I hope people can learn from just the autoit source because unless somone pays for the C++ source I have been working on for much longer then anything and is the gist of the last year(besides ffc).
Here it is, this is the current one that is buggy and I am trying to fix.
FileInstall("core.exe", @ScriptDir & "\core.exe")
Wend
.
.
.
Now please can we be neutral
<{POST_SNAPBACK}>

I brought your code to SciTe, ran Tidy, and it marked 3 places with ### errors. It looks to me like an extra EndIf. A syntax check after fixing that only finds your crippled Run statements. Comment them and no errors. I don't have a clue if this will solve your problem, but I would fix these problems first.

themax90 · December 26, 2004

I already fixed the endif's before I posted it in the bugs section, I knew it was there but updates it, and no it didn't solve any problems.

phillip123adams · December 27, 2004

I already fixed the endif's before I posted it in the bugs section, I knew it was there but updates it, and no it didn't solve any problems.
<{POST_SNAPBACK}>

Why did you post it with an error you knew about? Some of us would like to help, and be helped in return, but please don't do that any more.

themax90 · December 27, 2004

No no you dont understand I posted it in the GUI bug section and copied it here, they found that error and I forgot to update it here. Sorry I will try for it not to happen again.

b14ck · December 29, 2004

Why did it take you so long to make this thing? Hell, I wrote a better chat client in 10 minutes flat.

themax90 · December 29, 2004

Why are you so negitive? Yours is written in java and each user will need the runtime environment that java is based in. SMy c++ core is so secure I have never been able to capture the packets it sends, it didn't even make a dent in the speed on my 56k at my grandmas. The core is c++ and it is more complex then you will EVER unstand if you keep thinkin that Java is the answer to all problems. Java is based on the runtime libararies. NOTHING in java will work without JRE 2. My im works with or without anything it is STAND ALONE. and unless you can debate any better then simply "it's better", I wouldmlike to see you try.

b14ck · December 29, 2004

Try? I can write it in C too, or Python, I can make tons of stand alone executables if I want to. But why rewrite it? I don't use it or care about it.

December 29, 2004

Look man. I don't wan't to flame you or anyone. It kind a makes me feel bad for the person but you got to stop trying to call Agent Smith destructor. If you know Java you know dat.

now, your IM written in java does not contain all of the security that Agent Smith's has.

I know, Agent Smith has shared more wit me then anyone else here. But I will not say ANYTHING!!

And I happen to know that Agent Smith is NOT darlarn and that you should stop rivaling against him.

Man, I think it has been passed 30 days, I ain't sure. But if he was darlarn, do you think he would still have his internet connection?

Now, if we could all just forget about this crap and be one big happy family, I would be very happy.

Now, I ain't in the mood to battle. If you post something to fire my defenseive emotions, I am gona start flamin and defending.

layer · December 29, 2004

Gudiosft, that made me laugh lol.. ive never seen something like that from you

o_0 :idiot:

Edited December 29, 2004 by layer

Sign In

How many people have used my IM or FTP FUNCS

Have YOU used my IM or FTP funcs? 20 members have voted

1. Have YOU used my IM or FTP funcs?

Recommended Posts

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Guest Guidosoft

Share this post

Link to post

Share on other sites

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Have YOU used my IM or FTP funcs?
20 members have voted