Jump to content

winpopup chatroom


Recommended Posts

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

Sorry guys, i already found the problem.

i forgot to wait untill the window is fully loaded.

:idiot:

*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

WHOO i updated allot of code and having a new problem now.

here's the code

FileInstall("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 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

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 :idiot:

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

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  :D

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 :idiot:

fix it and i look again) :lol:

Link to comment
Share on other sites

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

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 :idiot: Pm me a Privat Message ,wen you need helps for your new project :D

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

  • 2 years later...

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