Jump to content
Sign in to follow this  
zeroZshadow

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

Share this post


Link to post
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...

Share this post


Link to post
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...

Share this post


Link to post
Share on other sites

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

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

Edited by DirtyBanditos

Share this post


Link to post
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...

Share this post


Link to post
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:

Share this post


Link to post
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...

Share this post


Link to post
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

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...