Jump to content

delimiter issue

dbecker

By dbecker,
in AutoIt General Help and Support

 Share

Recommended Posts

dbecker Seeker

dbecker

Posted
Posted

having an issue with a delimiter in an arraytostring script. I'm not sure how to get it to display properly. I want each item in the string to be displayed on a seperate line in the editbox. 

Dim $m = _ArrayToString ($diagnose, Chr (10), 0, $n-1)
$tab0edit=GUICtrlCreateEdit ($m & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

anyone know what I'm doing wrong?

"I wish I could say something that was classy and inspirational, but that just wouldn't be our style. Pain heals. Chicks dig scars. Glory lasts forever." - Shane Falco, The Replacements

Link to comment
Share on other sites
dbecker Seeker

dbecker

Posted
  • Author
Posted

having an issue with a delimiter in an arraytostring script. I'm not sure how to get it to display properly. I want each item in the string to be displayed on a seperate line in the editbox. 

Dim $m = _ArrayToString ($diagnose, Chr (10), 0, $n-1)
$tab0edit=GUICtrlCreateEdit ($m & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

anyone know what I'm doing wrong?

anybody? B)

"I wish I could say something that was classy and inspirational, but that just wouldn't be our style. Pain heals. Chicks dig scars. Glory lasts forever." - Shane Falco, The Replacements

Link to comment
Share on other sites
seandisanti Universalist

seandisanti

Posted
Posted

anybody? B)

i've had issues with arraytostring() before. you may want to just loop it and make your own string. If you stick to convention and keep $array[0] as your element count, you'll have no issues dynamically creating the string regardless of the number of elements.

dim $m = $diagnose[1]

for $iterator = 2 to $diagnose[0]
$m = $m & @crlf & $diagnose[$iterator]
next
$tab0edit=GUICtrlCreateEdit ($m & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)
Link to comment
Share on other sites
Nuffilein805 Universalist

Nuffilein805

Posted
Posted 

Dim $m = _ArrayToString ($diagnose, @crlf)
$tab0edit=GUICtrlCreateEdit ($m & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

i'd try this 1

$tab0edit=GUICtrlCreateEdit ($diagnose[1] & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
for $i = 2 to $diagnose[0] step 1
guictrlsetdata ($tab0edit, guictrlread($tab0edit) & $diagnose[$i] & @crlf)
next
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

or this 1

good luck

my little chatmy little encryption toolmy little hidermy unsafe clickbot
Link to comment
Share on other sites
dbecker Seeker

dbecker

Posted
  • Author
Posted

I tried using those two, but neither worked quite right. this is the array with the total GUI configuration. if possible(which I'm sure that it is) I need each item from the array displayed on a new line, I'm just having trouble getting it to that point. maybe someone is familiar with peculiarities of using delimiter macros in _arraytostring scripts.. with the first one, it displays like I've been able to get it to, both right next to each other, no separation between items at all. anyone have any ideas/solutions?

#include <GUIConstants.au3>
#include <Array.au3>
Global $diagnose[28]
Global $n=0
ProgressOn ("Now Diagnosing...","Please wait for the scan to finish")
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB873333", "Installed") then
$diagnose[$n] = "Windows Update KB873333"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (4)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB885250", "Installed") then 
$diagnose[$n] = "Windows Update KB885250"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (8)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB886185", "Installed") then 
$diagnose[$n] = "Windows Update KB886185"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (12)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB888113", "Installed") then 
$diagnose[$n] = "Windows Update KB888113"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (16) 
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB891781", "Installed") then 
$diagnose[$n] = "Windows Update KB891781"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (20)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB893066", "Installed") then 
$diagnose[$n] = "Windows Update KB893066"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (24)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896358", "Installed") then 
$diagnose[$n] = "Windows Update KB896358"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (28)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896422", "Installed") then 
$diagnose[$n] = "Windows Update KB896422"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (32)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896423", "Installed") then 
$diagnose[$n] = "Windows Update KB896423"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (36)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896424", "Installed") then 
$diagnose[$n] = "Windows Update KB896424"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (40)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896688", "Installed") then 
$diagnose[$n] = "Windows Update KB896688"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (43)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896727", "Installed") then 
$diagnose[$n] = "Windows Update KB896727"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (45)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB899588", "Installed") then 
$diagnose[$n] = "Windows Update KB899588"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (47)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB899589", "Installed") then 
$diagnose[$n] = "Windows Update KB899589"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (50)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB900725", "Installed") then 
$diagnose[$n] = "Windows Update KB900725"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (54)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB901017", "Installed") then 
$diagnose[$n] = "Windows Update KB901017"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (57)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB901214", "Installed") then 
$diagnose[$n] = "Windows Update KB901214"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (61)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB902400", "Installed") then 
$diagnose[$n] = "Windows Update KB902400"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (64)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB904706", "Installed") then 
$diagnose[$n] = "Windows Update KB904706"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (68)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB905414", "Installed") then 
$diagnose[$n] = "Windows Update KB905414"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (71)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB905749", "Installed") then 
$diagnose[$n] = "Windows Update KB905749"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (75)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\GIANTCompany\AntiSpyware", "InstallPath") Then 
$diagnose[$n] = "Microsoft Anti-SpyWare"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (78)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Symantec AntiVirus\Install\7.50", "InstallDir") then 
$diagnose[$n] = "Norton Anti-Virus"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (82)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Cisco\Clean Access Agent", "Version") then 
$diagnose[$n] = "Cisco Clean Access Agent"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (86)
If NOT FileExists ("C:\Program Files\Mozilla Firefox\firefox.exe") Then 
$diagnose[1] = "Mozilla Firefox"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (89)
If NOT FileExists ("C:\Program Files\Spybot - Search & Destroy\SpybotSD.exe") Then 
$diagnose[$n] = "Spy-Bot Search and Destroy"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (93)
If NOT FileExists ("C:\Program Files\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then 
$diagnose[$n] = "Ad-Aware SE Personal"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (96)
If NOT FileExists ("C:\WINDOWS\system32\xpsp2res.dll") Then 
$diagnose[$n] = "WindowsXP Service Pack2"
$n = $n + 1
EndIf
ProgressSet (100)
ProgressOff()


DirCreate ("C:\Ubertor Patch")
GUICreate("The RezNet Setup Application",400,465) ; will create a dialog box that when displayed is centered
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\imtlogo.jpg", "C:\WINDOWS\system32\oobe\images\imtlogo.jpg")
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\HelpFile.html", "C:\Ubertor Patch\HelpFile.html")
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\imtsslogo.jpg", "C:\Ubertor Patch\imtsslogo.jpg")

GUISetBkColor(0xFFFFFF)
GUISetFont(9, 300)

$tab=GUICtrlCreateTab (0,0, 400,25)

$tab0=GUICtrlCreateTabitem ("   Scan Results     ")
$tab0=GUICtrlCreatePic(@Systemdir & "\oobe\images\imtlogo.jpg",1,26,400,274)
$tab0=GUICtrlCreateLabel ("The scan results are displayed below. All of the windows updates, along with Cisco Clean Access Agent and Norton Anti-Virus are required. Anything else displayed is optional, but recommended.",1,275,400,60)

Dim $m = _ArrayToString ($diagnose, Chr (10),0,$n-1)
$tab0edit=GUICtrlCreateEdit ($m & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

$tab1=GUICtrlCreateTabitem (" Programs and Updates ")
$tab1=GUICtrlCreatePic(@Systemdir & "\oobe\images\imtlogo.jpg",1,26,400,274)
$tab1XPPatch=GUICtrlCreateButton ("Windows Updates",0,320,200,25)
$tab1CCAA=GUICtrlCreateButton ("Cisco Clean Access Agent",0,345,200,25)
$tab1Firefox=GUICtrlCreateButton ("Mozilla Firefox",0,370,200,25)
$tab1Acrobat=GUICtrlCreateButton ("Adobe Acrobat Reader",0,395,200,25)
$tab1Trillian=GUICtrlCreateButton ("Trillian",0,420,200,25)
$tab1Norton=GUICtrlCreateButton ("Norton AntiVirus",200,320,200,25)
$tab1MicrosoftASW=GUICtrlCreateButton ("Microsoft AntiSpyware",200,345,200,25)
$tab1AdAware=GUICtrlCreateButton ("Ad-Aware SE Personal",200,370,200,25)
$tab1SpyBot=GUICtrlCreateButton ("SpyBot Search and Destroy",200,395,200,25)
$tab1SP2=GUICtrlCreateButton ("Windows XP Service Pack2",200,420,200,25)

$tab2=GUICtrlCreateTabItem ("Program Descriptions")
$tab2=GUICtrlCreateLabel ("-Windows Updates: Installs post-SP2 updates that are required for the network.",1,26,400,30)
$tab2=GUICtrlCreateLabel ("-Cisco Clean Access Agent: This program is required for authentication on the network. You must use this to ensure that the network is safe and secure.",1,55,400,45)
$tab2=GUICtrlCreateLabel ("-Mozilla Firefox: This program is a web browser that is a very widely acceptable alternative to using Internet Explorer. Please note that it is not a requirement, nor is it supported by APU yet.",1,99,400,50)
$tab2=GUICtrlCreateLabel ("-Adobe Acrobat Reader: This program is used to open .PDF files. You will not be able to open these file types without Acrobat Reader.",1,144,400,30)
$tab2=GUICtrlCreateLabel ("-Trillian: This program is a popular alternative to using AIM, MSN, and Yahoo! instant messenger programs. Also not a requirement.",1,174,400,30)
$tab2=GUICtrlCreateLabel ("-Norton Anti-Virus: This is APU's corporate edition of Norton Anti-Virus. This version has a four-year subscription with it to Live-Update for up-to-date virus definitions. Please un-install other versions of Norton, as well as other anti-virus programs before installing.",1,204,400,75)
$tab2=GUICtrlCreateLabel ("-Microsoft Anti-SpyWare: This program is a popular, effective anti-spyware program. While not required for the network, it is still a wise program to have on hand for regular use for smooth operation.",1,264,400,60)
$tab2=GUICtrlCreateLabel ("-Ad-Aware SE Personal: This program is another popular, effective anti-spyware program.",1,309,400,30)
$tab2=GUICtrlCreateLabel ("-Spy-Bot Search and Destroy: This program is another popular, effective anti-spyware program.",1,339,400,30)
$tab2=GUICtrlCreateLabel ("-Windows XP Service Pack2: This is a very large package of updates and hotfixes for Windows XP. Most 'factory fresh' computers now come with it pre-installed, but if the 'Scan Results' tab indicates that you require it, please install it before proceeding to other Windows updates. Be aware that this installation will take between 30 min. to 2 hours.",1,369,400,85)
GUICtrlCreateTabitem ("")  ; end tabitem definition



$filemenu = GUICtrlCreateMenu ("&File",-1,1)

$helpmenu = GUICtrlCreateMenu ("&Help")

$helpitem = GUICtrlCreateMenuitem ("Help",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
$abootitem = GUICtrlCreateMenuitem ("Aboot",$helpmenu)

GUISetState ()

"I wish I could say something that was classy and inspirational, but that just wouldn't be our style. Pain heals. Chicks dig scars. Glory lasts forever." - Shane Falco, The Replacements

Link to comment
Share on other sites
LxP Universalist

LxP

Posted
Posted

This should do it:

Local $List = ''
For $I = 0 To $N - 1
    $List = $List & $Diagnose[$I] & @CRLF
Next
$Tab0Edit = GUICtrlCreateEdit($List, 0, 325, 300, 120, BitOR($ES_AUTOVSCROLL + $WS_VSCROLL))
$Tab0Rescan = GUICtrlCreateButton('Rescan', 300, 325, 100, 25)
Link to comment
Share on other sites
Nuffilein805 Universalist

Nuffilein805

Posted
Posted

i think the problem is your 

global $n = 0
here is the whole thing working!

#include <GUIConstants.au3>
#include <Array.au3>
Global $diagnose[28]
$diagnose[0]=27
Global $n=1
ProgressOn ("Now Diagnosing...","Please wait for the scan to finish")
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB873333", "Installed") then
$diagnose[$n] = "Windows Update KB873333"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (4)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB885250", "Installed") then 
$diagnose[$n] = "Windows Update KB885250"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (8)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB886185", "Installed") then 
$diagnose[$n] = "Windows Update KB886185"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (12)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB888113", "Installed") then 
$diagnose[$n] = "Windows Update KB888113"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (16) 
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB891781", "Installed") then 
$diagnose[$n] = "Windows Update KB891781"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (20)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB893066", "Installed") then 
$diagnose[$n] = "Windows Update KB893066"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (24)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896358", "Installed") then 
$diagnose[$n] = "Windows Update KB896358"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (28)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896422", "Installed") then 
$diagnose[$n] = "Windows Update KB896422"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (32)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896423", "Installed") then 
$diagnose[$n] = "Windows Update KB896423"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (36)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896424", "Installed") then 
$diagnose[$n] = "Windows Update KB896424"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (40)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896688", "Installed") then 
$diagnose[$n] = "Windows Update KB896688"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (43)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB896727", "Installed") then 
$diagnose[$n] = "Windows Update KB896727"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (45)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB899588", "Installed") then 
$diagnose[$n] = "Windows Update KB899588"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (47)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB899589", "Installed") then 
$diagnose[$n] = "Windows Update KB899589"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (50)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB900725", "Installed") then 
$diagnose[$n] = "Windows Update KB900725"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (54)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB901017", "Installed") then 
$diagnose[$n] = "Windows Update KB901017"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (57)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB901214", "Installed") then 
$diagnose[$n] = "Windows Update KB901214"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (61)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB902400", "Installed") then 
$diagnose[$n] = "Windows Update KB902400"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (64)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB904706", "Installed") then 
$diagnose[$n] = "Windows Update KB904706"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (68)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB905414", "Installed") then 
$diagnose[$n] = "Windows Update KB905414"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (71)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\HotFix\KB905749", "Installed") then 
$diagnose[$n] = "Windows Update KB905749"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (75)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\GIANTCompany\AntiSpyware", "InstallPath") Then 
$diagnose[$n] = "Microsoft Anti-SpyWare"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (78)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Symantec AntiVirus\Install\7.50", "InstallDir") then 
$diagnose[$n] = "Norton Anti-Virus"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (82)
If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Cisco\Clean Access Agent", "Version") then 
$diagnose[$n] = "Cisco Clean Access Agent"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (86)
If NOT FileExists ("C:\Program Files\Mozilla Firefox\firefox.exe") Then 
$diagnose[1] = "Mozilla Firefox"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (89)
If NOT FileExists ("C:\Program Files\Spybot - Search & Destroy\SpybotSD.exe") Then 
$diagnose[$n] = "Spy-Bot Search and Destroy"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (93)
If NOT FileExists ("C:\Program Files\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then 
$diagnose[$n] = "Ad-Aware SE Personal"
$n = $n + 1
EndIf
Sleep (150)
ProgressSet (96)
If NOT FileExists ("C:\WINDOWS\system32\xpsp2res.dll") Then 
$diagnose[$n] = "WindowsXP Service Pack2"
$n = $n + 1
EndIf
ProgressSet (100)
ProgressOff()


DirCreate ("C:\Ubertor Patch")
GUICreate("The RezNet Setup Application",400,465); will create a dialog box that when displayed is centered
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\imtlogo.jpg", "C:\WINDOWS\system32\oobe\images\imtlogo.jpg")
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\HelpFile.html", "C:\Ubertor Patch\HelpFile.html")
FileInstall ("C:\Documents and Settings\David Becker\My Documents\Work\Ubertor Patch\imtsslogo.jpg", "C:\Ubertor Patch\imtsslogo.jpg")

GUISetBkColor(0xFFFFFF)
GUISetFont(9, 300)

$tab=GUICtrlCreateTab (0,0, 400,25)

$tab0=GUICtrlCreateTabitem ("   Scan Results     ")
$tab0=GUICtrlCreatePic(@Systemdir & "\oobe\images\imtlogo.jpg",1,26,400,274)
$tab0=GUICtrlCreateLabel ("The scan results are displayed below. All of the windows updates, along with Cisco Clean Access Agent and Norton Anti-Virus are required. Anything else displayed is optional, but recommended.",1,275,400,60)

$tab0edit=GUICtrlCreateEdit ($diagnose[1] & @CRLF & "TEST" & @CRLF,0,325,300,120,$ES_AUTOVSCROLL+$WS_VSCROLL)
for $i = 2 to $diagnose[0] step 1
guictrlsetdata ($tab0edit, guictrlread($tab0edit) & $diagnose[$i] & @crlf)
next
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)
$tab0ReScan=GUICtrlCreateButton ("Re-Scan",300,325,100,25)

$tab1=GUICtrlCreateTabitem (" Programs and Updates ")
$tab1=GUICtrlCreatePic(@Systemdir & "\oobe\images\imtlogo.jpg",1,26,400,274)
$tab1XPPatch=GUICtrlCreateButton ("Windows Updates",0,320,200,25)
$tab1CCAA=GUICtrlCreateButton ("Cisco Clean Access Agent",0,345,200,25)
$tab1Firefox=GUICtrlCreateButton ("Mozilla Firefox",0,370,200,25)
$tab1Acrobat=GUICtrlCreateButton ("Adobe Acrobat Reader",0,395,200,25)
$tab1Trillian=GUICtrlCreateButton ("Trillian",0,420,200,25)
$tab1Norton=GUICtrlCreateButton ("Norton AntiVirus",200,320,200,25)
$tab1MicrosoftASW=GUICtrlCreateButton ("Microsoft AntiSpyware",200,345,200,25)
$tab1AdAware=GUICtrlCreateButton ("Ad-Aware SE Personal",200,370,200,25)
$tab1SpyBot=GUICtrlCreateButton ("SpyBot Search and Destroy",200,395,200,25)
$tab1SP2=GUICtrlCreateButton ("Windows XP Service Pack2",200,420,200,25)

$tab2=GUICtrlCreateTabItem ("Program Descriptions")
$tab2=GUICtrlCreateLabel ("-Windows Updates: Installs post-SP2 updates that are required for the network.",1,26,400,30)
$tab2=GUICtrlCreateLabel ("-Cisco Clean Access Agent: This program is required for authentication on the network. You must use this to ensure that the network is safe and secure.",1,55,400,45)
$tab2=GUICtrlCreateLabel ("-Mozilla Firefox: This program is a web browser that is a very widely acceptable alternative to using Internet Explorer. Please note that it is not a requirement, nor is it supported by APU yet.",1,99,400,50)
$tab2=GUICtrlCreateLabel ("-Adobe Acrobat Reader: This program is used to open .PDF files. You will not be able to open these file types without Acrobat Reader.",1,144,400,30)
$tab2=GUICtrlCreateLabel ("-Trillian: This program is a popular alternative to using AIM, MSN, and Yahoo! instant messenger programs. Also not a requirement.",1,174,400,30)
$tab2=GUICtrlCreateLabel ("-Norton Anti-Virus: This is APU's corporate edition of Norton Anti-Virus. This version has a four-year subscription with it to Live-Update for up-to-date virus definitions. Please un-install other versions of Norton, as well as other anti-virus programs before installing.",1,204,400,75)
$tab2=GUICtrlCreateLabel ("-Microsoft Anti-SpyWare: This program is a popular, effective anti-spyware program. While not required for the network, it is still a wise program to have on hand for regular use for smooth operation.",1,264,400,60)
$tab2=GUICtrlCreateLabel ("-Ad-Aware SE Personal: This program is another popular, effective anti-spyware program.",1,309,400,30)
$tab2=GUICtrlCreateLabel ("-Spy-Bot Search and Destroy: This program is another popular, effective anti-spyware program.",1,339,400,30)
$tab2=GUICtrlCreateLabel ("-Windows XP Service Pack2: This is a very large package of updates and hotfixes for Windows XP. Most 'factory fresh' computers now come with it pre-installed, but if the 'Scan Results' tab indicates that you require it, please install it before proceeding to other Windows updates. Be aware that this installation will take between 30 min. to 2 hours.",1,369,400,85)
GUICtrlCreateTabitem ("") ; end tabitem definition



$filemenu = GUICtrlCreateMenu ("&File",-1,1)

$helpmenu = GUICtrlCreateMenu ("&Help")

$helpitem = GUICtrlCreateMenuitem ("Help",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
$abootitem = GUICtrlCreateMenuitem ("Aboot",$helpmenu)

GUISetState ()

have fun

my little chatmy little encryption toolmy little hidermy unsafe clickbot
Link to comment
Share on other sites
dbecker Seeker

dbecker

Posted
  • Author
Posted

Thanks a bunch! got it all working. Many thanks B)

"I wish I could say something that was classy and inspirational, but that just wouldn't be our style. Pain heals. Chicks dig scars. Glory lasts forever." - Shane Falco, The Replacements

Link to comment
Share on other sites
dbecker Seeker

dbecker

Posted
  • Author
Posted

no problem

nice prog! your first 1? would feel really bad if you'd say yes B)

kind of. first real prog that uses a GUI, but this is currently v.2 of a student release version.. I've released a beta of this that didn't have the scan feature for technician use.. (in case you hadn't noticed I work for the computer techs at a university.. ) but, I've only been working with autoit for about a month now. my boss keeps "encouraging" me(I call it pushing) to make this project more and more complicated, so I'm sure I'll be having more questions as I go along. but I've gotten this far really with almost no help outside of the docs/helpfile and a few syntax helps here and there. for a poli-sci major I think I'm doing just fine so far :o <--this is the worst wink-face ever

"I wish I could say something that was classy and inspirational, but that just wouldn't be our style. Pain heals. Chicks dig scars. Glory lasts forever." - Shane Falco, The Replacements

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