Searching...

[Gaboury]

Thanks

Do you have msn or icq? You'd be to me such a good help buddy... :roll:

[Valuater]

Thanks

Do you have msn or icq?  You'd be to me such a good help buddy...  :roll:

<{POST_SNAPBACK}>

nopper... i use this forum only

8)

( i get points here...lol)

[Gaboury]

Okay...

But now I don't find the directory where the .txt is located... :/ searched in windows\temp and didn't find there neither :/ Any ideas?

[Edit]

nvm I got it..changed the path to homedrive instead of temp and I got it to work

Edited September 3, 2005 by Gaboury

[Gaboury]

For now I have that:

runWait(@comspec & ' /c dir /b /s ' & @HomeDrive & '\mirc.exe > "' & @HomeDrive & '\result.txt"', @HomeDrive, @SW_HIDE)
$resultopen = FileOpen("c:\result.txt", 0)

I had more but it wasn't working so I removed it :/ I really suck...it takes a bit of time before I understand but once I've understood

I tried with "@homedrive\result.txt" but it was returning -1 so it wasn't that...and with that one it returns 0 so it must be finding it ^^

Edited September 3, 2005 by Gaboury

[Valuater]

For now I have that:

runWait(@comspec & ' /c dir /b /s ' & @HomeDrive & '\mirc.exe > "' & @HomeDrive & '\result.txt"', @HomeDrive, @SW_HIDE)
$resultopen = FileOpen("c:\result.txt", 0)

I had more but it wasn't working so I removed it :/  I really suck...it takes a bit of time before I understand but once I've understood

I tried with "@homedrive\result.txt" but it was returning -1 so it wasn't that...and with that one it returns 0 so it must be finding it ^^

<{POST_SNAPBACK}>

remember this ???

Run("notepad.exe " & @TempDir & "\result.txt")

why not try this

$resultopen = FileOpen(@TempDir & "\result.txt", 0)

ok.....

you changed the output...then use this

$resultopen = FileOpen(@HomeDrive & '\result.txt", 0 )

#3

$resultread = FileReadLine($resultopen)

8)

Edited September 3, 2005 by Valuater

[Gaboury]

I can't believe how stupid I am...and now how do I put that into the ini file?!?

if I do ini write I need like everything so I have no idea :/

Filewriteini isn't a valid cmd

[Valuater]

I can't believe how stupid I am...and now how do I put that into the ini file?!?

if I do ini write I need like everything so I have no idea :/

Filewriteini isn't a valid cmd

<{POST_SNAPBACK}>

on your computer press the following

Start > All Programs > Autoit v3 > Autoit Help File

when that loads then press the "search" tab

then type in "ini" and press "List Topics"

**** you can do this with any word you want

thats what i do all the time

8)

[Gaboury]

Yeah I know that...but there is only iniwrite and it really sucks because I don't know how to enter enverything I need...ha...I think I got it..wait I'll edit when I have it

[Valuater]

Yeah I know that...but there is only iniwrite and it really sucks because I don't know how to enter enverything I need...ha...I think I got it..wait I'll edit when I have it

<{POST_SNAPBACK}>

here is a small script i was playing with earlier

IniWrite("C:\Temp\myfile.ini", "section2", "key", "this is a new value, test for levels, third info, and a fourth")

$read = IniRead("C:\Temp\myfile.ini", "section2", "key", "NotFound")
$names = StringSplit($read, ",")

for $i = 1 to $names[0]
    MsgBox(0,"names", $names[$i])
Next

8)

[Gaboury]

I got it! I got it! I got it! I got it!!!

Here's the code

runWait(@comspec & ' /c dir /b /s ' & @HomeDrive & '\mirc.exe > "' & @HomeDrive & '\result.txt"', @HomeDrive, @SW_HIDE)
$resultopen = FileOpen(@HomeDrive & "\result.txt", 0 )
$resultread = FileReadLine($resultopen)
DirCreate (@HomeDrive & "\mIRCScrimFinder\")
IniWrite(@homeDrive & "\mIRCScrimFinder\config.ini", "Path", "$mircpath", $resultread)
MsgBox(0, "Detected.", "mIRC Scrim Finder detected the path to your mIRC executable.  The starting is now only a question of seconds.", 2)

Thank you so much buddy I finally found the rest by myself, thanks for not telling me more than that... You are a great guy Thanks again

[Edit: I let the page opened to be sure not to refresh it not to tempt me to copy what you'd have answered ]

Edited September 3, 2005 by Gaboury

[Valuater]

Cool....

maybe do this too

MsgBox(0, "Detected.", "mIRC Scrim Finder detected the path to your mIRC executable." & @CRLF & " The starting is now only a question of seconds.", 2)

8)

[Gaboury]

Yeah good idea Thanks

Okay...so now I have another problem :/ I'll paste my code here and please try to help me:

When I press the Start Finding button, I'd like the progress bar to start, and then when I press the stop button it stops it... but now it doesn't work and once it's started I cannot even close it with the "x", I need to ctrl-alt-delete it... Here's the code:

expandcollapse popup

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
;-------------------------------------------------------------------------------------------------------------------------------------------------------------- GUI
GuiCreate("mIRC Scrim Auto Searcher", 365, 316,(@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Picture = GuiCtrlCreatePic("C:\Documents and Settings\Jaimie\Bureau\mircscrim.jpg", 20, 10, 325, 65)
$input1 = GuiCtrlCreateInput(".: 5 vs 5 | East | Yours | Cal-I | MAP | PM ME :.", 130, 85, 215, 22)
$label1 = GuiCtrlCreateLabel("Hi.  This is my first program.  I made this mIRC Auto-Scrim Searcher to make it easier to find scrims.  Just paste whatever line you'd have posted on mIRC to find a scrim and then press Start.  It will also log you in the good mIRC server and make sure you don't bypass the flood protection.", 20, 150, 340, 80)
$startbutton = GuiCtrlCreateButton("Start Finding!", 130, 116, 96, 20)
$stopbutton = GuiCtrlCreateButton("Stop Finding!", 249, 116, 96, 20)
$progress = GUICtrlCreateProgress( 20, 116, 96, 20)
GUISetState()
;-------------------------------------------------------------------------------------------------------------------------------------------------------------- GUI END

While 1
   $msg= GuiGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $startbutton
  $surebox = MsgBox(4, "Are you sure?", "Is this really the text you want to enter? " & GUICtrlRead($input1))
    If $surebox = 6 Then
       msgbox(0, "Accepted.", "mIRC should start searching for a scrim within 30 seconds or so.  This window will close itself automatically.", 3)
       Call("startit")
       Call("progressbar1")
    ElseIf $surebox = 7 Then
       Call("Stopit")
          MsgBox(0, "Canceled.", "The search was canceled.  Please change your input and press Start Finding again.  This window will close itself automatically.", 3)
       EndIf
   
   EndSelect
WEnd
Func progressbar1()
   $wait = 20; Wait time between each Progress Step
   $initialvalue = 0; Initial Value of the Progress Bar
   
   Do
      $msg = GUIGetMsg()
   For   $progressvalue = $initialvalue to 100
      GUICtrlSetData($progress, $progressvalue)
      Sleep($wait)
   Next
   if $progressvalue >100 Then
      For $progressvalue = $initialvalue To 0 Step -1
      Next
      Call("progressbar1")
         EndIf
      until $msg = $GUI_EVENT_CLOSE
   EndFunc
Func startit()
        MsgBox(0, "Detecting...", "Now searching the path to your mIRC executable.", 2)
        Sleep(1000)
        runWait(@comspec & ' /c dir /b /s ' & @HomeDrive & '\mirc.exe > "' & @HomeDrive & '\result.txt"', @HomeDrive, @SW_HIDE)
        $resultopen = FileOpen(@HomeDrive & "\result.txt", 0 )
        $resultread = FileReadLine($resultopen)
        DirCreate (@HomeDrive & "\mIRCScrimFinder\")
        IniWrite(@homeDrive & "\mIRCScrimFinder\config.ini", "Path", "$mircpath", $resultread)
        MsgBox(0, "Detected.", "mIRC Scrim Finder detected the path to your mIRC executable." & @CRLF & "The starting is now only a question of seconds.", 2)
Endfunc
Exit

[Valuater]

first.. when a function is in operation you cannot call the same function..

i have to look more also....hold on

8)

[Gaboury]

Okidoki!

If you tell me to add commands or anything, don't forget to explain me why cause I wanna understand!

[Valuater]

this is first

i put a drop-down list ( combobox) it looks better

GuiCreate("mIRC Scrim Auto Searcher", 365, 316,(@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Picture = GuiCtrlCreatePic("C:\Documents and Settings\Jaimie\Bureau\mircscrim.jpg", 20, 10, 325, 65)
$input1a = GUICtrlCreateCombo("Chose from this list below", 130, 85, 215, 22)
$input1 = GUICtrlSetData(-1,".: 5 vs 5 | East | Yours | Cal-I | MAP | PM ME :.")
$label1 = GuiCtrlCreateLabel("Hi.  This is my first program.  I made this mIRC Auto-Scrim Searcher to make it easier to find scrims.  Just paste whatever line you'd have posted on mIRC to find a scrim and then press Start.  It will also log you in the good mIRC server and make sure you don't bypass the flood protection.", 20, 150, 340, 80)
$startbutton = GuiCtrlCreateButton("Start Finding!", 130, 116, 96, 20)
$stopbutton = GuiCtrlCreateButton("Stop Finding!", 249, 116, 96, 20)
$progress = GUICtrlCreateProgress( 20, 116, 96, 20)
GUISetState()

let me know if that is what you wanted

still looking to...

8)

Edited September 3, 2005 by Valuater

[Valuater]

maybe this

expandcollapse popup

#include <GuiConstants.au3>

;If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000
;-------------------------------------------------------------------------------------------------------------------------------------------------------------- GUI
GuiCreate("mIRC Scrim Auto Searcher", 365, 316,(@DesktopWidth-392)/2, (@DesktopHeight-316)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Picture = GuiCtrlCreatePic("C:\Documents and Settings\Jaimie\Bureau\mircscrim.jpg", 20, 10, 325, 65)
$input1a = GUICtrlCreateCombo("Chose from this list below", 130, 85, 215, 22)
$input1 = GUICtrlSetData(-1,".: 5 vs 5 | East | Yours | Cal-I | MAP | PM ME :.")
$label1 = GuiCtrlCreateLabel("Hi.  This is my first program.  I made this mIRC Auto-Scrim Searcher to make it easier to find scrims.  Just paste whatever line you'd have posted on mIRC to find a scrim and then press Start.  It will also log you in the good mIRC server and make sure you don't bypass the flood protection.", 20, 150, 340, 80)
$startbutton = GuiCtrlCreateButton("Start Finding!", 130, 116, 96, 20)
$stopbutton = GuiCtrlCreateButton("Stop Finding!", 249, 116, 96, 20)
$progress = GUICtrlCreateProgress( 20, 116, 96, 20)
GUISetState()
;-------------------------------------------------------------------------------------------------------------------------------------------------------------- GUI END

While 1
   $msg= GuiGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   Case $msg = $startbutton
  $surebox = MsgBox(4, "Are you sure?", "Is this really the text you want to enter? " & GUICtrlRead($input1))
    If $surebox = 6 Then
       msgbox(0, "Accepted.", "mIRC should start searching for a scrim within 30 seconds or so.  This window will close itself automatically.", 3)
       Call("startit")
      ;Call("progressbar1")
    ElseIf $surebox = 7 Then
      ;Call("Stopit")
          MsgBox(0, "Canceled.", "The search was canceled.  Please change your input and press Start Finding again.  This window will close itself automatically.", 3)
       EndIf
   
   EndSelect
WEnd
#cs
Func progressbar1()
   $wait = 20; Wait time between each Progress Step
   $initialvalue = 0; Initial Value of the Progress Bar
   
   Do
      $msg = GUIGetMsg()
   For   $progressvalue = $initialvalue to 100
      GUICtrlSetData($progress, $progressvalue)
      Sleep($wait)
   Next
   if $progressvalue >100 Then
      For $progressvalue = $initialvalue To 0 Step -1
      Next
      Call("progressbar1")
         EndIf
      until $msg = $GUI_EVENT_CLOSE
   EndFunc
#ce
Func startit()
        GUICtrlSetData($progress, 10)
        MsgBox(0, "Detecting...", "Now searching the path to your mIRC executable.", 2)
        GUICtrlSetData($progress, 20)
        Sleep(1000)
        GUICtrlSetData($progress, 30)
        runWait(@comspec & ' /c dir /b /s ' & @HomeDrive & '\mirc.exe > "' & @HomeDrive & '\result.txt"', @HomeDrive, @SW_HIDE)
        GUICtrlSetData($progress, 60)
        $resultopen = FileOpen(@HomeDrive & "\result.txt", 0 )
        GUICtrlSetData($progress, 70)
        $resultread = FileReadLine($resultopen)
        GUICtrlSetData($progress, 80)
        DirCreate (@HomeDrive & "\mIRCScrimFinder\")
        GUICtrlSetData($progress, 90)
        IniWrite(@homeDrive & "\mIRCScrimFinder\config.ini", "Path", "$mircpath", $resultread)
        GUICtrlSetData($progress, 100)
        MsgBox(0, "Detected.", "mIRC Scrim Finder detected the path to your mIRC executable." & @CRLF & "The starting is now only a question of seconds.", 2)
Endfunc
Exit

8)

[Gaboury]

I don't like it...moreover, they need to input everything

.: # vs # | Where | What map | Skill | Private Message me :.

not only one of those... put that into a .au3 file and exec it, you'll see that when you press start finding etc it works well, but then you say yes, and it works, but if you do "stop" or you press the red "x" button it won't close... I tried to fix it like during 1 hour this afternooon and I got pissed ^^

[Gaboury]

well you got it a bit but I want it to stop when I tell him, not when he has done one bar...I wanted it to continue without stopping... SO now let,s try to find how to stop it by pressing the stop button...

I'll be back 2night, I have to go outside a bit cause now I'm getting tired of being in front of a computer

Thanks for all and see ya

- Gaboury.

[SmOke_N]

I don't like it...moreover, they need to input everything

.: # vs # | Where | What map | Skill | Private Message me :.

not only one of those...  put that into a .au3 file and exec it, you'll see that when you press start finding etc it works well, but then you say yes, and it works, but if you do "stop" or you press the red "x" button it won't close...  I tried to fix it like during 1 hour this afternooon and I got pissed ^^

<{POST_SNAPBACK}>

Hmm... 'Gift Horse' comes to mind

[w0uter]

Cal-I, pssh.

you mean:

$input1 = GUICtrlSetData(-1,".: 5 vs 5 | East | Yours | Cal-O | MAP | PM ME :.")