Jump to content
Sign in to follow this  
Followers 0
themax90

How many people have used my IM or FTP FUNCS

By themax90, in AutoIt Example Scripts

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

themax90    2

themax90
Posted (edited)

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

Share this post

Link to post
Share on other sites

Valik    471

Valik
Posted

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.

Share this post

Link to post
Share on other sites

themax90    2

themax90
Posted

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

Share this post

Link to post
Share on other sites

sykes    0

sykes
Posted

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

We have enough youth. How about a fountain of SMART?

Share this post

Link to post
Share on other sites

themax90    2

themax90
Posted (edited)

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

Share this post

Link to post
Share on other sites

phillip123adams    0

phillip123adams
Posted

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

Share this post

Link to post
Share on other sites

themax90    2

themax90
Posted

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.

Share this post

Link to post
Share on other sites

phillip123adams    0

phillip123adams
Posted

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

Share this post

Link to post
Share on other sites

themax90    2

themax90
Posted

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.

Share this post

Link to post
Share on other sites

b14ck    0

b14ck
Posted

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

-I am the giver of life and the bringer of death.

Share this post

Link to post
Share on other sites

themax90    2

themax90
Posted

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.

Share this post

Link to post
Share on other sites

b14ck    0

b14ck
Posted

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.

-I am the giver of life and the bringer of death.

Share this post

Link to post
Share on other sites

Guest Guidosoft   

Guest Guidosoft
Posted

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.

Share this post

Link to post
Share on other sites

layer    2

layer
Posted (edited)

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

o_0 :idiot:

Edited by layer
FootbaG

Share this post

Link to post
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
Sign in to follow this  
Followers 0
Go To Topic Listing AutoIt Example Scripts
×

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.

  I accept