zeroZshadow Posted January 13, 2005 Share Posted January 13, 2005 (edited) i'm making a winpopup based chat room, but i have a small problem. i don't know how to use the control commands. FileInstall("C:\WINDOWS\Desktop\proggie\Winpopup.exe",@scriptDir & "\WinPopup.exe") opt ("WinTitleMatchMode",2) opt ("TrayIconDebug",1) $loop = 1 _start() while $loop=1 WinWaitActive("Notepad") $message = WinGetText ( "Notepad") _sendmessage($message) WEnd func _start() ;Run(@scriptdir & "\winpopup.exe");,@ScriptDir,@SW_HIDE ;WinWaitActive("WinPopup") ;WinMenuSelectItem ( "WinPopup", "", "&Messages" , "&Send") EndFunc func _sendmessage($message) EndFunc i have commented some stuff out because i can only enable then when the controll commands work. The idea is that it starts winpopup (from W98) (i file installed so i can run it anywhere) and keeps sending the text that's written in the notepad window. so it send the text->deletes the message->recieves the next message-> and writes that in the notepad. so it will be like 2 or more persons are typing in the same window. pleas help, because i really am stuck here. (i attached winpopup) SEE BELOW FOR BETTER DOWNLOAD Edited January 14, 2005 by zeroZshadow *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
zeroZshadow Posted January 13, 2005 Author Share Posted January 13, 2005 Sorry guys, i already found the problem. i forgot to wait untill the window is fully loaded. *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
zeroZshadow Posted January 14, 2005 Author Share Posted January 14, 2005 (edited) WHOO i updated allot of code and having a new problem now. here's the code expandcollapse popupFileInstall("C:\WINDOWS\Desktop\proggie\Winpopup.exe",@scriptDir & "\WinPopup.exe") opt ("WinTitleMatchMode",2) opt ("TrayIconDebug",1) $loop = 1 $group = InputBox("group", "what group do you want to join?") HotKeySet("^E","_stop") _start($group) while $loop=1 sleep(5000) $message = WinGetText ( "Notepad") _sendmessage($message) _recievemessage() ControlSend("Notepad","","Edit1","^A" & "{DEL}" & $recieve) WEnd func _start($group) Run("notepad.exe") Run(@scriptdir & "\winpopup.exe");,@ScriptDir,@SW_HIDE WinWait("WinPopup") WinMenuSelectItem ( "WinPopup", "", "&Messages" , "&Send") sleep(40) ControlCommand ( "Send", "", "Button3", "Check", "" ) ControlSend("Send","","Edit1","{DEL 20}" & $group) Winactivate("Notepad") EndFunc func _sendmessage($message) ControlSend("Send","","Edit2","^A" & "{DEL}" & $message) ControlClick ( "Send", "", "Button4") ControlClick ( "WinPopup", "", "Button1") WinMenuSelectItem ( "WinPopup", "", "&Messages" , "&Send") sleep(40) ControlCommand ( "Send", "", "Button3", "Check", "" ) ControlSend("Send","","Edit1","{DEL 20}" & $group) EndFunc Func _recievemessage() $recieve = ControlGetText ( "WinPopup", "", "Edit1" ) WinMenuSelectItem ( "WinPopup", "", "&Messages" , "&Discard") WinActivate("Notepad") EndFunc Func _stop() ProcessClose("notepad.exe") ProcessClose("WinPopup.exe") Exit endfunc The problem is that i can't read the text in the recieve window of winpopup and that i think there will be a problem with combining the $message and the $recieve. pleas test it and help me out here Edited January 14, 2005 by zeroZshadow *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
DirtyBanditos Posted January 14, 2005 Share Posted January 14, 2005 (edited) WHOO i updated allot of code and having a new problem now. Hi your winpopup nöt wörks he tell me not found COMMCTRL.DLL=?adde this on your zip and i test =? for your Prob Edited January 14, 2005 by DirtyBanditos Link to comment Share on other sites More sharing options...
zeroZshadow Posted January 14, 2005 Author Share Posted January 14, 2005 here's the new download. put the DLL in ur windows/system I HAVE W98 so it may not work on XP, but that's what i wnt to test Thanks for replying *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
DirtyBanditos Posted January 15, 2005 Share Posted January 15, 2005 here's the new download.put the DLL in ur windows/systemI HAVE W98 so it may not work on XP, but that's what i wnt to test Thanks for replying<{POST_SNAPBACK}>Hello Zeroshadow i have test your new version he gif me this Errors on German,i use windows Xp Home servicepack2!Error Message Winpopup verursachte eine allgemeine Schutzverletzung in Module Commctrl.dll bei 0003:1d23!It wörks not windows xp fix it and i look again) Link to comment Share on other sites More sharing options...
zeroZshadow Posted January 15, 2005 Author Share Posted January 15, 2005 I found out that it doesn't work in XP AT ALL! normealy i would use NET SEND but i have W98 no W98SE and i thinks that's why i can use the NET SEND command. IF you know how i CAN pleas pm or reply. (i started a new programm that copy's dir's with progressbar.) *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
DirtyBanditos Posted January 15, 2005 Share Posted January 15, 2005 (edited) I found out that it doesn't work in XP AT ALL! normealy i would use NET SEND but i have W98 no W98SE and i thinks that's why i can use the NET SEND command.IF you know how i CAN pleas pm or reply.(i started a new programm that copy's dir's with progressbar.)<{POST_SNAPBACK}>Hello Pm me a Privat Message ,wen you need helps for your new project Or search on his forum Autoit Smith has made a net send Instand messenger!I have search for you look this link for infos!Mchat by Autoit Smith Edited January 15, 2005 by DirtyBanditos Link to comment Share on other sites More sharing options...
thozzz007 Posted December 27, 2007 Share Posted December 27, 2007 (edited) bump Edited December 27, 2007 by thozzz007 Link to comment Share on other sites More sharing options...
James Posted December 27, 2007 Share Posted December 27, 2007 WTH?? That was random, why the hell are you bumping this thread? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now