Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
HTA: Wait for event before continuing script
Hi ! Can you explain more your idea because i don't understand at all you aim ??? -
ctrl + h in multiple files
...Set objWrite = objFSO.OpenTextFile(objFile.Path, ForWriting) objWrite.Write strContents objWrite.Close End If End If Next '************************************************************************** Function IsTXTFile(sFile) IsTXTFile = (InStr(1, Right(UCase(sFile), InStrRev(sFile... -
Another script request if anyone can help
..."set Result=" ^& p cscript //nologo %vbs% > %cmd% for /f "delims=" %%a in (%cmd%) do %%a for %%f in (%vbs% %cmd%) do if exist %%f del %%f for %%g in ("vbs cmd") do if defined %%g set %%g= ::****************************************************************************** -
VBS Help :-(
...= "MyXCopyLog.txt" MyExcludeFile = "echo .mp3 > MyExcludeFile.txt" 'This file must be created and contains .mp3 to exclude in the first line '************************************************************************************************************************** 'Remark : You can also add... -
VBS Help :-(
.... . . ." Call CreateProgressBar(Titre,MsgAttente) Call LancerProgressBar() Call Pause(2) Call Executer(MyCmd,0) FermerProgressBar() ws.run LogFile '************************************************************************************ Function Executer(StrCmd,Console) Dim ws,MyCmd,Resultat... -
Code works in Internet Explorer 8 and 9, but not in 10 or 11
...font-weight: bold; } </style> <META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> <title>Open CD</title> <SCRIPT LANGUAGE="VBScript"> '************************************************************************************ Sub window_onload() CenterWindow 280,270 End Sub... -
Download a file with a redirect using VBScript
...& "\Coast Bike.swf" ' ---------------------------------Les paramètres à modifier pour télécharger le jeu--------------------------------- '********************************************************************************************************************* Call... -
Task Kill not running
...Call WmPlaySound(MySound1) Pause 10 Call Kill("wmplayer.exe") Call WmPlaySound(MySound2) Pause 6 Call Kill("wmplayer.exe") End If Loop '********************************************************************************************* Sub WmPlaySound(MySound) Dim WshShell Set... -
How to open multiple tabs in Internet Explorer with VBS ?
...from the net that worked great for me [2thumbsup] Const navflags = 2048 Set IE = CreateObject("InternetExplorer.Application") Call One Call Two '********************************************** Sub One() IE.Visible = True IE.Navigate2 "http://en.wikipedia.org/wiki/" Do WScript.Sleep 100... -
Script to open multiple tabs in Internet Explorer
...NewTab = &h800 Dim objExplorer Set objExplorer = CreateObject("InternetExplorer.Application") If CheckConnectionInternet() = True Then Call Main() '***************************************************************** Sub Main() NavigateIE_Tabs "http://tek-tips.com/viewthread.cfm?qid=1721921",""... -
How can i kill all instances of "Wscript.exe" exept one that is started by my VBS ?
...solved like this : Just takes one simple loop and a filter ! Set wmi = GetObject("winmgmts:root\cimv2") Set cProcesses = wmi.ExecQuery("select * from win32_process where Name like '%wscript.exe%' AND NOT commandline like '%" & wsh.scriptname & "%'") For Each oProcess in cProcesses... -
How can i kill all instances of "Wscript.exe" exept one that is started by my VBS ?
...sProcName = Mid(wsh.fullname, InstrRev(wsh.fullname, "\") + 1) Set cProcesses = oWMISrvc.ExecQuery( _ "select * from win32_process where Name = '" & sProcName & "'") For Each oProcess in cProcesses If Instr(lcase(oProcess.Commandline), lcase(wsh.scriptname)) < 0 Then wsh.echo... -
Hta message boc when reach end of line
Hi [peace] Can you post your hole HTA ? Thank you ! -
Read checkbox values from web page
...© 2013" Set fso = CreateObject("Scripting.FileSystemObject") LogFile = "ProcessKilled.txt" If fso.FileExists(LogFile) Then fso.DeleteFile LogFile '********************************************************************************************** Sub Window_OnLoad Dim... -
[VBS] Decomposition of a URL address
...result = Search(trim(adress)) MsgBox Title & " ( Uniform Resource Locator ) ==> URL : " & DblQuote(adress) & vbCrLf & vbCrLf & result,64,Title '******************************************************* Function Search(MyString) Dim objet Dim correspondance Dim collection dim pattern... -
[VBS] Decomposition of a URL address
...==> then it works 5/5 So I'm looking how to get around this error ? Option Explicit Dim adress,result,Title '***************************************************************** 'Fonction pour ajouter des guillemets dans une variable Function DblQuote(Str) DblQuote = Chr(34) & Str &... -
How to capture the first letter in a not-repeating string ?
Hi [peace] and thank you Strongm for your reply ! So, Your solution works, but when i choose a string like MyString = "www.google.com" so it return me "." instead of "l" So i found this trick to get it working like this : Private Function GetFirstSingleLetter(ByVal strText As String) As String... -
How to capture the first letter in a not-repeating string ?
Hi [peace] I want to create a function for capturing the first letter in a not-repeating string For example if have this : MyString = "aabbccddMffrryx" So the first letter will be returned as M So i'm looking for the best and the easy way to do it in vbscript. So i ask you how can i do this... -
How to find position 1421 in a txt file
Hi [peace] Try this Code : Option Explicit Dim Title,FromLine,ToLine Title = "Extract Lines From TextFile © Hackoo Crackoo 2013" FromLine = InputBox("Please select the number of the start line to extract",Title,"1421") If FromLine = "" Or Not IsNumeric(FromLine) Then WScript.Quit ToLine =... -
Syntax for WshShell.Run to open Powerpoint 2007 in Show mode
...CreateObject("Wscript.Shell") strFileName = "c:\Document Path\MyDocument.ppsx" WshShell.Run "POWERPNT.EXE /s" &" "& DblQuote(strFileName),1,false '********************************************************************************************** 'Function to add double quotes in a variable...
