Jump to content

help run html file from script

dbecker

By dbecker,
in AutoIt General Help and Support

 Share

Recommended Posts

dbecker Seeker

dbecker

Posted
Posted

hey there, newbie here, been using autoit for a couple months now... trying to run an html file from an item in the menu, not sure how to get it to do it. I can have it run iexplorer.exe, wait a few seconds, and type the location of the file in the url, but that's just lame. anyone know a way to just run the file?

"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 

$url = "http://www.autoitscript.com"
Run("c:\program files\internet explorer\iexplore.exe " & $url)
Thanks! I'm also having trouble with displaying an array in a label.. I can get it to display correctly on the first run, but I want to have a button next to it that will run the scan again, and display the new results. not sure if this is right: 

#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)
$tab0label=GUICtrlCreateLabel($m,0,325,300,120,$WS_VSCROLL+$WS_BORDER)
$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 ()

Do
  $msg = GUIGetMsg ()

   Select
      Case $msg = $tab1XPPatch
     Run ("\\127.0.0.1\Ubertor Patch\XPPatch Installer.exe")
      Case $msg = $tab1Norton
         Run ("D:\Ubertor Patch\Norton 10 Installer2.exe")
      Case $msg = $tab1MicrosoftASW
     Run ("D:\Ubertor Patch\MicrosoftASW AutoInstaller.exe")
      Case $msg = $tab1AdAware
     Run ("D:\Ubertor Patch\aawsepersonal.exe")
      Case $msg = $tab1CCAA
     Run ("D:\Ubertor Patch\CCAA AutoInstaller.exe")
      Case $msg = $tab1Firefox
     Run ("\\127.0.0.1\Ubertor Patch\Firefox Setup.exe")
      Case $msg = $tab1Acrobat
     Run ("D:\Ubertor Patch\AcrobatSetup.exe")
      Case $msg = $tab1Trillian
     Run ("D:\Ubertor Patch\Trillian.exe")
      Case $msg = $tab1SpyBot
     Run ("D:\Ubertor Patch\spybotsd14.exe")
      Case $msg = $tab1SP2
     Run ("D:\Ubertor Patch\WindowsXP-KB835935.exe")
      Case $msg = $tab0ReScan
    Global $diagnose2[28]
    Global $p=0
    GUICtrlDelete ($tab0label) 
    ProgressOn ("Now Diagnosing...","Please wait while we scan your computer")
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB873333", "Installed") then
    $diagnose2[$p] = Windows Update KB873333
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (4)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB885250", "Installed") then 
    $diagnose2[$p] = Windows Update KB885250
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (8)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB886185", "Installed") then 
    $diagnose2[$p] = Windows Update KB886185
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (12)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB888113", "Installed") then 
    $diagnose2[$p] = Windows Update KB888113
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (16) 
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB891781", "Installed") then 
    $diagnose2[$p] = Windows Update KB891781
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (20)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB893066", "Installed") then 
    $diagnose2[$p] = Windows Update KB893066
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (24)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896358", "Installed") then 
    $diagnose2[$p] = Windows Update KB896358
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (28)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896422", "Installed") then 
    $diagnose2[$p] = Windows Update KB896422
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (32)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896423", "Installed") then 
    $diagnose2[$p] = Windows Update KB896423
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (36)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896424", "Installed") then 
    $diagnose2[$p] = Windows Update KB896424
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (40)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896688", "Installed") then 
    $diagnose2[$p] = Windows Update KB896688
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (43)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB896727", "Installed") then 
    $diagnose2[$p] = Windows Update KB896727
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (45)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB899588", "Installed") then 
    $diagnose2[$p] = Windows Update KB899588
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (47)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB899589", "Installed") then 
    $diagnose2[$p] = Windows Update KB899589
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (50)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB900725", "Installed") then 
    $diagnose2[$p] = Windows Update KB900725
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (54)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB901017", "Installed") then 
    $diagnose2[$p] = Windows Update KB901017
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (57)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB901214", "Installed") then 
    $diagnose2[$p] = Windows Update KB901214
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (61)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB902400", "Installed") then 
    $diagnose2[$p] = Windows Update KB902400
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (64)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB904706", "Installed") then 
    $diagnose2[$p] = Windows Update KB904706
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (68)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB905414", "Installed") then 
    $diagnose2[$p] = Windows Update KB905414
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (71)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB905749", "Installed") then 
    $diagnose2[$p] = Windows Update KB905749
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (75)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\GIANTCompany\AntiSpyware", "InstallPath") Then 
    $diagnose2[$p] = "Microsoft Anti-SpyWare"
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (78)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Symantec AntiVirus\Install\7.50", "InstallDir") then 
    $diagnose2[$p] = "Norton Anti-Virus"
    $n = $n + 1
    EndIf
    Sleep (150)
    ProgressSet (82)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Cisco\Clean Access Agent", "Version") then 
    $diagnose2[$p] = "Cisco Clean Access Agent"
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (86)
    If NOT RegRead ("HKEY_CURRENT_USER\Software\Mozilla\Mozilla Firefox", "Current Version") Then 
    $diagnose[1] = "Mozilla Firefox"
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (89)
    If NOT RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\PepiMK Software\SpybotSnD", "Version") Then 
    $diagnose2[$p] = "Spy-Bot Search and Destroy"
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (93)
    If NOT FileExists ("C:\Program Files\Lavasoft\Ad-Aware SE Personal\Ad-Aware.exe") Then 
    $diagnose2[$p] = "Ad-Aware SE Personal"
    $p = $p + 1
    EndIf
    Sleep (150)
    ProgressSet (96)
    If NOT FileExists ("C:\WINDOWS\system32\xpsp2res.dll") Then 
    $diagnose2[$p] = "WindowsXP Service Pack2"
    $p = $p + 1
    EndIf
    ProgressSet (100)
    ProgressOff()
    Dim $q = _ArrayToString ($diagnose2, CHR(10), 0, $p-1)
    $tab0label2=GUICtrlCreateLabel($q,0,325,300,120,$WS_VSCROLL+$WS_BORDER)
    GUICtrlCreateTabitem ("")  ; end tabitem definition
      EndSelect
      If $msg = $GUI_EVENT_CLOSE Or $msg = $exititem Then
          FileRecycle ("C:\Ubertor Patch")
          Exitloop
      EndIf
      If $msg = $helpitem Then 
              $url = "C:\Ubertor Patch\HelpFile.html"
        Run("c:\program files\internet explorer\iexplore.exe " & $url)
      EndIf
      If $msg = $abootitem Then MsgBox (0, "Aboot", "This is the RezNet Setup Application. By running the assorted applications here-in, use should render a student computer completely ready for accessing the student networks here on campus. If you have any questions, please direct them to David Becker, the creator of this magnificent beast.")
Until $msg = $GUI_EVENT_CLOSE

when first run, progress bar is displayed while the script checks about 28 places in the registry/hard drive for certain values and files. The array displays the ones that fail. There are three tabs, the first one has the label that displays the array. I've got it so that when it first runs the check it displays the array correctly. First problem, the scroll in the $tab0label doesn't scroll. it displays the scroll on the side, but it doesn't work. Second problem, when I have it run the second(or third or fourth) scan, say if something has changed, it displays the label on all three tabs, so I need a way to change the tab definition outside of the original defining. I have it delete the original label control, but it still displays on all three. Any suggestions?

"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
erebus Universalist

erebus

Posted
Posted

First of all you have a lot of variables without quotes; such as:

$diagnose2[$p] = Windows Update KB873333

Apart from that a label is a label, I don't believe that you can scroll it even if you add a scrollbar next to it. Try using an EditBox instead and see the results.

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