Even a fool is counted wise when he holds his peace when he shuts his lips, he is considered perceptive. He who has knowledge spares his words, and a man of understanding is of a calm spirit. If Left(sHexCol, 6) = "cancel" Then Exit Do SHexCol = IE.StatusText '-Get statustext value. Navigate "file:///" & TempFol & "\colpick.html" Set IE = CreateObject("InternetExplorer.Application") Displays a message in a dialog box, waits for the user to click a button, and returns a value indicating which button the user clicked. Now put in buttons and TD With BOT ID to Get color code text when boxes are clicked: WriteLine "window.status = " & Q2 & "cancel-" & Q2 '- CANCEL button: Write "cancel" to status bar text: If you want to display a message to the user and need to know the users reponse: Dim MyVar MyVar MsgBox ('Hello World', 65, 'MsgBox Example') MyVar contains either 1 or 2, depending on which button is clicked. WriteLine "window.status = scol & " & Q2 & "-" & Q2 The syntactical rules of VBScript are simple: Use parameter list when calling a (routine as a) Function. InputBox.bat - How to get input in DOS batch (including VBS). WriteLine "If (Left(sCol, 1) " & Q2 & "#" & Q2 & ") Then sCol = " & Q2 & "#" & Q2 & " & scol" - Someone said Strings.COM wont work in XP. WriteLine "If = " & Q2 & "TD" & Q2 & " Then"
Set TS = FSO.CreateTextFile(TempFol & "\colpick.html", True) '-Start writing the webpage to show the color picker: If FSO.FileExists(TempFol & "\colpick.html") = True ThenįSO.DeleteFile TempFol & "\colpick.html", Trueĭim TS, i, i2, i3, i4, s1, s2, s3, ACols, iCols, IE, sHexCol, BooPickĪCols = Array("00", "33", "66", "99", "CC", "FF")
Set FSO = CreateObject("Scripting.FileSystemObject")
0 kommentar(er)
