Jump to content

hmz...

Marius
 Share

Recommended Posts

Marius Seeker

Marius

Posted
Posted (edited)

$skaicius = ""

$eee = 0

If $msg = $button Then

$eee = $eee + 5

If $eee<10 Then

$skaicius = "00" & GUICtrlRead($eee)

If $eee<100 Then

$skaicius = "0" & GUICtrlRead($eee)

If $eee<1000 Then

$skaicius = GUICtrlRead($eee)

EndIf

EndIf

EndIf

EndIf

Doesn't work. $skaicius always shows 0 Where's my mistake?

Edited by Marius
Marius back in da hood! :)
Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted

$skaicius = ""

$eee = 0

If $msg = $button Then

$eee = $eee + 5

If $eee<10 Then

$skaicius = "00" & GUICtrlRead($eee)

If $eee<100 Then

$skaicius = "0" & GUICtrlRead($eee)

If $eee<1000 Then

$skaicius = GUICtrlRead($eee)

EndIf

EndIf

EndIf

EndIf

Doesn't work.  $skaicius always shows 0  Where's my mistake?

<{POST_SNAPBACK}>

:) Maybe you want to explain what you want to accomplish because this piece of code doesn't make much sense to me ..

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Don't know if your reading an actual edit/input box in a GUI but this may help lead you in the right direction:

$skaicius = ""
$eee = 0
$read = GUICtrlRead($eee)
$msg = GUIGetMsg()
Select
   Case $msg = $button
      $eee = $eee + 5
      If $eee < 10 Then
         $skaicius = ("00" & $read)
         If $eee < 100 Then
            $skaicius = ("0" & $read)
            If $eee < 1000 Then
               $skaicius = $read
            EndIf
         EndIf
      EndIf
  EndSelect

Or if your trying to make it add the $read to the "00" only if the statement before wasn't true then maybe this will help:

$skaicius = ""
$eee = 0
$read = GUICtrlRead($eee)
$msg = GUIGetMsg()
Select
   Case $msg = $button
      $eee = $eee + 5
      If $eee < 10 Then
         $skaicius = ("00" & $read)
      ElseIf $eee < 100 Then
         $skaicius = ("0" & $read)
      Else
         $skaicius = $read
      EndIf
EndSelect

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites
Marius Seeker

Marius

Posted
  • Author
Posted (edited)

Ok. Here's full code:

#include <GUIConstants.au3>

#Include <GuiList.au3>

FileDelete ("process.txt")

$parent = GUICreate("Silent Extractor v0.7", 800, 600) ; will create a dialog box that when displayed is centered

dim $additional[6]

$font = "Arial Black"

$font2 = "Arial"

$font3 = "Comic Sans MS"

$label1 = GUICtrlCreateLabel ("Welcome to Silent Extractor!",-1,50,800,60,$SS_CENTER)

GUICtrlSetFont ($label1, 30, -1, -1, $font)

$label1 = GUICtrlCreateLabel ("This program will help you to create auto installations of your favorite softvare in 4 easy steps!!!",-1,120,800,25,$SS_CENTER)

GUICtrlSetFont ($label1, 10, -1, -1, $font2)

$tab=GUICtrlCreateTab (130,160, 540,400)

;

;

;

;

;

GUICtrlCreateTabitem ("Step 1")

GUICtrlCreateGroup ("Choose Windows XP installation folder", 150, 200, 500, 60)

; group start

$edit1 = GUICtrlCreateEdit ( "", 160, 220, 380, 25, $ES_LEFT + $ES_AUTOHSCROLL)

GUICtrlSetFont ($edit1, 10, -1, -1, $font2)

$browse = GUICtrlCreateButton ( "Browse", 550, 220, 90, 25, $BS_VCENTER)

; group end

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUICtrlCreateGroup ("", 150, 270, 245, 270)

GUICtrlCreatePic("windows-vs-linux.jpg",155, 280, 235, 255)

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUICtrlCreateGroup ("Windows Info", 405, 270, 245, 270)

$info1 = GUICtrlCreateEdit ( "No directory selected!", 415, 294, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info1, 10, -1, -1, $font2)

$info2 = GUICtrlCreateEdit ( "No directory selected!", 415, 335, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info2, 10, -1, -1, $font2)

$info3 = GUICtrlCreateEdit ( "No directory selected!", 415, 376, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info3, 10, -1, -1, $font2)

$info4 = GUICtrlCreateEdit ( "No directory selected!", 415, 417, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info4, 10, -1, -1, $font2)

$info5 = GUICtrlCreateEdit ( "No directory selected!", 415, 458, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info5, 10, -1, -1, $font2)

$info6 = GUICtrlCreateEdit ( "No directory selected!", 415, 499, 225, 25, $ES_LEFT)

GUICtrlSetFont ($info6, 10, -1, -1, $font2)

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUICtrlCreateTabitem ("") ; end tabitem definition

;

;

;

;

;

GUICtrlCreateTabitem ("Step 2")

GUICtrlCreateGroup ("Choose name",150, 200, 500, 60)

$name = GUICtrlCreateInput ( "", 160, 220, 480, 25)

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUICtrlCreateGroup ("Choose application and set silent keys",150, 270, 500, 60)

; group start

$edit2 = GUICtrlCreateEdit ( "", 160, 290, 290, 25, $ES_LEFT + $ES_AUTOHSCROLL)

GUICtrlSetFont ($edit2, 10, -1, -1, $font2)

$edit3 = GUICtrlCreateEdit ( "", 460, 290, 80, 25, $ES_LEFT + $ES_AUTOHSCROLL)

GUICtrlSetFont ($edit3, 10, -1, -1, $font2)

$browse2 = GUICtrlCreateButton ( "Browse", 550, 290, 90, 25, $BS_VCENTER)

; group end

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

;pakeist

GUICtrlCreateGroup ("Additional DOS commands",150, 340, 500, 200)

$additional1 = GUICtrlCreateEdit ( "", 160, 360, 380, 25, $ES_LEFT)

GUICtrlSetFont ($additional1, 10, -1, -1, $font2)

$additional2 = GUICtrlCreateEdit ( "", 160, 395, 380, 25, $ES_LEFT)

GUICtrlSetFont ($additional2, 10, -1, -1, $font2)

$additional3 = GUICtrlCreateEdit ( "", 160, 430, 380, 25, $ES_LEFT)

GUICtrlSetFont ($additional3, 10, -1, -1, $font2)

$additional4 = GUICtrlCreateEdit ( "", 160, 465, 380, 25, $ES_LEFT)

GUICtrlSetFont ($additional4, 10, -1, -1, $font2)

$additional5 = GUICtrlCreateEdit ( "", 160, 500, 380, 25, $ES_LEFT)

GUICtrlSetFont ($additional5, 10, -1, -1, $font2)

;pakeist

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

$add = GUICtrlCreateButton ( "ADD", 550, 360, 90, 95, $BS_VCENTER )

GUICtrlSetFont ($add, 15, -1, -1, $font)

$cancel = GUICtrlCreateButton ( "Clear", 550, 465, 90, 60, $BS_VCENTER)

GUICtrlCreateTabitem ("") ; end tabitem definition

;

;

;

;

;

GUICtrlCreateTabitem ("Step 3")

GUICtrlCreateGroup ("Review added applications and remove unneeded ones", 150, 200, 500, 335)

$s = 0

$apped = GUICtrlCreateList ( "", 165, 225, 470, 285, $LBS_SORT, $WS_EX_CLIENTEDGE)

GUICtrlSetLimit(-1,200)

$remove = GUICtrlCreateButton ( "Remove", 535, 500, 100, 25, $BS_VCENTER)

$totalapps = GUICtrlCreateLabel ( "Total number of apps:", 165, 500, 150, 25)

GUICtrlSetFont ($totalapps, 10, -1, -1, $font3)

$number = GUICtrlCreateLabel ($s, 310, 500, 200, 50)

GUICtrlSetFont ($number, 15, -1, -1, $font)

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUICtrlCreateTabitem ("") ; end tabitem definition

;

;

;

;

GUICtrlCreateTabitem ("Step 4")

$eee = 0

GUICtrlCreateGroup ("Process Components",140, 200, 520, 60)

$process = GUICtrlCreateButton ( "Process", 160,220 , 100, 25, $BS_VCENTER)

$directory = GUICtrlCreateLabel ( "", 270, 220, 360, 25)

GUICtrlSetFont ($directory, 15, -1, -1, $font2)

$dot = GUICtrlCreateLabel ( "...", 630, 220, 20, 25)

GUICtrlSetFont ($dot, 15, -1, -1, $font2)

GUICtrlCreateTabitem ("") ; end tabitem definition

;

;

;

;

;

;

GUICtrlSetState ($edit2, $GUI_DISABLE)

GUICtrlSetState ($edit3, $GUI_DISABLE)

GUICtrlSetState ($additional1, $GUI_DISABLE)

GUICtrlSetState ($additional2, $GUI_DISABLE)

GUICtrlSetState ($additional3, $GUI_DISABLE)

GUICtrlSetState ($additional4, $GUI_DISABLE)

GUICtrlSetState ($additional5, $GUI_DISABLE)

GUICtrlSetState ($browse2, $GUI_DISABLE)

GUICtrlSetState ($add, $GUI_DISABLE)

GUICtrlSetState ($cancel, $GUI_DISABLE)

GUICtrlSetState ($remove, $GUI_DISABLE)

GUICtrlSetState ($process, $GUI_DISABLE)

GUICtrlSetState ($name, $GUI_DISABLE)

GUICtrlSetState ($apped, $GUI_DISABLE)

GUISetState () ; will display an empty dialog box

While 1

$msg = GUIGetMsg()

If $msg = $browse Then

$windir = FileSelectFolder ( "Choose Windows installation folder", "", 2, @HomeDrive & "\")

GUICtrlSetData ( $edit1, $windir)

If GUICtrlRead ($edit1) <> "" Then

$error = "Error!"

Else

$error = "No directory selected!"

EndIf

$var1 = IniRead($windir & "\I386\PRODSPEC.ini", "Product Specification", "Product", $error)

GUICtrlSetData ( $info1, $var1)

$var2 = IniRead($windir & "\I386\PRODSPEC.ini", "Product Specification", "Version", $error)

GUICtrlSetData ( $info2, $var2)

$var3 = IniRead($windir & "\I386\PRODSPEC.ini", "Product Specification", "Localization", $error)

GUICtrlSetData ( $info3, $var3)

$var4 = IniRead($windir & "\I386\PRODSPEC.ini", "Version", "DriverVer", $error)

GUICtrlSetData ( $info4, $var4)

$var5 = IniRead($windir & "\I386\DRVINDEX.inf", "Version", "CabFiles", $error)

GUICtrlSetData ( $info5, $var5)

$var6 = IniRead($windir & "\I386\BIOSINFO.inf", "Strings", "MSFT", $error)

GUICtrlSetData ( $info6, $var6)

If GUICtrlRead ($info1) = "Error!" And GUICtrlRead ($edit1) <> "" Then

MsgBox(16, "Corrupted installation!", "One or more errors occured. Please check your Windows XP folder!")

EndIf

If $msg = $browse Then

If GUICtrlRead ($info1) <> "Error!" And GUICtrlRead ($info1) <> "No directory selected!" Then

GUICtrlSetState ($edit2, $GUI_ENABLE)

GUICtrlSetState ($edit3, $GUI_ENABLE)

GUICtrlSetState ($additional1, $GUI_ENABLE)

GUICtrlSetState ($additional2, $GUI_ENABLE)

GUICtrlSetState ($additional3, $GUI_ENABLE)

GUICtrlSetState ($additional4, $GUI_ENABLE)

GUICtrlSetState ($additional5, $GUI_ENABLE)

GUICtrlSetState ($browse2, $GUI_ENABLE)

GUICtrlSetState ($add, $GUI_ENABLE)

GUICtrlSetState ($cancel, $GUI_ENABLE)

GUICtrlSetState ($remove, $GUI_ENABLE)

GUICtrlSetState ($process, $GUI_ENABLE)

GUICtrlSetState ($name, $GUI_ENABLE)

GUICtrlSetState ($apped, $GUI_ENABLE)

GUICtrlSetData ( $directory, $windir)

Else

GUICtrlSetState ($edit2, $GUI_DISABLE)

GUICtrlSetState ($edit3, $GUI_DISABLE)

GUICtrlSetState ($additional1, $GUI_DISABLE)

GUICtrlSetState ($additional2, $GUI_DISABLE)

GUICtrlSetState ($additional3, $GUI_DISABLE)

GUICtrlSetState ($additional4, $GUI_DISABLE)

GUICtrlSetState ($additional5, $GUI_DISABLE)

GUICtrlSetState ($browse2, $GUI_DISABLE)

GUICtrlSetState ($add, $GUI_DISABLE)

GUICtrlSetState ($cancel, $GUI_DISABLE)

GUICtrlSetState ($remove, $GUI_DISABLE)

GUICtrlSetState ($process, $GUI_DISABLE)

GUICtrlSetState ($name, $GUI_DISABLE)

GUICtrlSetState ($apped, $GUI_DISABLE)

EndIf

EndIf

EndIf

If $msg = $browse2 Then

$app = FileOpenDialog ( "Select your setup file", @HomeDrive & "\", "All (*.*)")

If $app <> "" Then

GUICtrlSetData ( $edit2, $app)

EndIf

If GUICtrlRead($edit2) = "1" Then

GUICtrlSetData ( $edit2, "")

EndIf

EndIf

If $msg = $add Then

If GUICtrlRead($edit2) <> "" And GUICtrlRead($name) <> "" Then

If GUICtrlRead($edit3) <> "" Then

$old = GUICtrlRead($edit2) & " " & GUICtrlRead($edit3)

$new = StringReplace ( GUICtrlRead($edit2) & " " & GUICtrlRead ($edit3), '"', '/""')

Else

$old = GUICtrlRead($edit2)

$new = StringReplace (GUICtrlRead($edit2), '"', '/""')

EndIf

;

;

;

;

; Here's the damn place

;

;

;

;

$read = GUICtrlRead($eee)

$eee = $eee + 5

If $eee < 10 Then

$skaicius = ("00" & $read)

If $eee < 100 Then

$skaicius = ("0" & $read)

If $eee < 1000 Then

$skaicius = $read

EndIf

EndIf

EndIf

FileWrite ("process.txt", 'REG ADD %KEY%\' & $skaicius & ' /VE /D "' & GUICtrlRead($name) & '" /f' & @CRLF)

;

;

; Autoit suppose to write to process.txt

;

;

;

;

;

$super = 0

For $i=1 to 5

If GUICtrlRead(Eval('additional' & $i)) <> "" Then

$super = $super + 1

EndIf

Next

$s = $s + 1

GUICtrlSetData($apped, '"' & GUICtrlRead($name) & '" ' & "with [" & $super & "] additional task(s) (Link: " & $old & ")|")

GUICtrlSetData ($number, $s)

EndIf

GUICtrlSetData ( $edit2, "")

GUICtrlSetData ( $edit3, "")

GUICtrlSetData ( $additional1, "")

GUICtrlSetData ( $additional2, "")

GUICtrlSetData ( $additional3, "")

GUICtrlSetData ( $additional4, "")

GUICtrlSetData ( $additional5, "")

GUICtrlSetData ( $name, "")

EndIf

If $msg = $cancel Then

GUICtrlSetData ( $edit2, "")

GUICtrlSetData ( $edit3, "")

GUICtrlSetData ( $additional1, "")

GUICtrlSetData ( $additional2, "")

GUICtrlSetData ( $additional3, "")

GUICtrlSetData ( $additional4, "")

GUICtrlSetData ( $additional5, "")

GUICtrlSetData ( $name, "")

EndIf

If $msg = $remove Then

$i_index = _GUICtrlListGetCaretIndex($apped) ;;added

_GUICtrlListDeleteItem($apped, $i_index) ;;added

If $s > 0 Then

$s = $s - 1

EndIf

GUICtrlSetData ( $number, $s)

EndIf

If $msg = $process Then

DirRemove($windir & "\$OEM$", 1)

DirCreate($windir & "\$OEM$")

DirCreate($windir & "\$OEM$\$$")

DirCreate($windir & "\$OEM$\$$\System32")

FileWrite ($windir & "\$OEM$\cmdlines.txt", "RunOnceEx.cmd" & @CRLF)

FileWrite ($windir & "\$OEM$\cmdlines.txt", "rundll32.exe iernonce.dll,RunOnceExProcess")

FileCopy ( "cmdow.exe", $windir & "\$OEM$\$$\System32", 1)

FileWrite ($windir & "\$OEM$\RunOnceEx.cmd", "cmdow @ /HID" & @CRLF)

FileWrite ($windir & "\$OEM$\RunOnceEx.cmd", "@echo off" & @CRLF)

FileWrite ($windir & "\$OEM$\RunOnceEx.cmd", "SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx" & @CRLF)

FileWrite ($windir & "\$OEM$\RunOnceEx.cmd", 'REG ADD %KEY% /V TITLE /D "Installing and upgrading the system..." /f' & @CRLF)

EndIf

If $msg = $GUI_EVENT_CLOSE Then

ExitLoop

EndIf

Wend

Edited by Marius
Marius back in da hood! :)
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted (edited)

I use message box very often to check info and errors so i tried this on your problem

$eee= 0

$name = "process" ;------ gave this a value

$read = GUICtrlRead($eee) ; same as $read = $eee

$eee = $eee + 5

If $eee < 10 Then ;**************** this is true

$skaicius = ("00" & $read)

If $eee < 100 Then ;***************** then this is true

$skaicius = ("0" & $read)

If $eee < 1000 Then ; *************** then again this is true

$skaicius = $read ; final result same value as $eee its 0

EndIf

EndIf

EndIf

******************* you are actually saying

$eee = 0

$read = $eee

$Skaicius = $read

***final result**

$Skaicius = 0

MsgBox(0,"process.txt", 'REG ADD %KEY%\' & $skaicius & ' /VE /D "' & GUICtrlRead($name) & '" /f' & @CRLF) ; see actual info

hope it helps

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites
Marius Seeker

Marius

Posted
  • Author
Posted

ok. figured out. Thanks Valuater.

Here's what I did:

$eee = $eee + 5

If $eee < 10 Then

$skaicius = ("00" & $eee)

Else

If $eee < 100 Then

$skaicius = ("0" & $eee)

Else

If $eee < 1000 Then

$skaicius = $eee

EndIf

EndIf

EndIf

FileWrite ("process.txt", 'REG ADD %KEY%\' & $skaicius & ' /VE /D "' & GUICtrlRead($name) & '" /f' & @CRLF)

Marius back in da hood! :)
Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted (edited)

now

$eee = 5

$eee is less than 10

less than 100

and

less than 1000

**** thus

Skaicius = 5

your not winning here

8)

************* maybe this?????

$eee = $eee + 5

If $eee < 10 Then

$skaicius = ("00" & $eee)

Else

If $eee > 10 And $eee < 100 Then

$skaicius = ("0" & $eee)

Else

If $eee > 100 And $eee < 1000 Then

$skaicius = $eee

EndIf

EndIf

EndIf

??????

Not sure what you want

8)

Edited by Valuater

NEWHeader1.png

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...