How many people have used my IM or FTP FUNCS

[themax90 2]

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

expandcollapse popup

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 473]

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 2]

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

[sykes 0]

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

[themax90 2]

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.

expandcollapse popup

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 0]

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 2]

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 0]

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 2]

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 0]

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

[themax90 2]

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 0]

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.

[Guest Guidosoft]

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 2]

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

o_0

Edited December 29, 2004 by layer