Jump to content

How many people have used my IM or FTP FUNCS


themax90
 Share

Have YOU used my IM or FTP funcs?  

20 members have voted

  1. 1. Have YOU used my IM or FTP funcs?

    • Have Used Both!
      0
    • Saved FTP Funcs For Later!
      1
    • Saved IM For Later!
      0
    • Used FTP Funcs!
      1
    • Used IM!
      1
    • LOVE YOUR FTP FUNCS!
      1
    • LOVE YOUR IM!
      0
    • BEST IM IN THE WORLD!!
      0
    • BEST FTP FUNCS IN THE WORLD!!!!!
      1
    • Hate Both Of Them!
      0
    • Hate Ftp Funcs!
      0
    • Hate Im!
      0
    • ALL YOUR PROJECTS SUCK!
      3
    • YOU SUCK!
      5
    • YOUR PROJECTS SUCK!
      1
    • I would like the source code to IM!!
      1
    • I WANT TO FLAME YOUR ASS!!
      0
    • Can I Join The IM Project???
      1
    • Ehhh I am Neutral About The Ftp Funcs
      2
    • Ehhh I am Neutral About The IM
      2


Recommended Posts

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 by Agent Smith
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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 by Agent Smith
Link to comment
Share on other sites

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.

Phillip

Link to comment
Share on other sites

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.

Phillip

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

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...