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 Mike Lewis 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
Hi [peace] Try this code : Option Explicit Const ForReading = 1 Const ForWriting = 2 Dim objFSO, strFolder, objFolder, objFile Dim strOldValue, strNewValue, objRead, strContents, objWrite strFolder = "c:\Changing" strOldValue = "http://test.example.com" strNewValue = "test" ' Retrieve... -
Another script request if anyone can help
Hi [peace] Try this batch file : @echo off Title Search for a folder by name and open it with Explorer by Hackoo 2014 mode con cols=75 lines=3 & color 9B Set /p FolderName2Search=Please Enter the keyword to find : Set MyListFolder=ListFolder.txt Set ResultFolder=ResultFolder.txt Call... -
VBS Help :-(
Hi [peace] If you mean to exclude all the .mp3 files ; You should do like this [2thumbsup] Option Explicit Dim sSrc,sDest,MyCmd,Temp,Titre,MsgTitre,MsgAttente,Copyright,oExec,ws,LogTmpFile,LogFile,MyExcludeFile Copyright = "[ XcopyScript © Hackoo Crackoo © 2014 ]" Set ws =... -
VBS Help :-(
Hi You can also try this script : Option Explicit Dim sSrc,sDest,MyCmd,Temp,Titre,MsgTitre,MsgAttente,Copyright,oExec,ws,LogTmpFile,LogFile Copyright = "[ XcopyScript © Hackoo Crackoo © 2014 ]" Set ws = CreateObject("WScript.Shell") Temp = ws.ExpandEnvironmentStrings("%Temp%") sSrc =... -
Code works in Internet Explorer 8 and 9, but not in 10 or 11
Hi [peace] Try this HTA <HTML> <head> <HTA:APPLICATION APPLICATIONNAME="Open CD" BORDER="THIN" BORDERSTYLE="NORMAL" ICON= "Magnify.exe" INNERBORDER="NO" MAXIMIZEBUTTON="NO" MINIMIZEBUTTON="NO" SCROLL="NO" SELECTION="NO" SINGLEINSTANCE="YES"/> <style> body{ background-color... -
Download a file with a redirect using VBScript
Hi ! May be you must logon to your site and then you can download your file ? I made a vbscript that can download a game in swf and play it with IE in a full screen, so you can take a look at this code and modify it for your purpose. Option Explicit Dim... -
Task Kill not running
Hi [peace] Try this code and modifiy it for your purpose [2thumbsup] Option Explicit Dim MySound1,MySound2,WshShell,scan Dim PartA, PartB set WshShell = CreateObject("WScript.Shell") Do PartA = UCase(InputBox("Scan Part Number Barcode on REEL: ","Scan Part Number Barcode on REEL")) If PartA =... -
How to open multiple tabs in Internet Explorer with VBS ?
Hi [peace] I got this code 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/"... -
Script to open multiple tabs in Internet Explorer
Hi [peace] You can also try this code : Option Explicit Const NewTab = &h800 Dim objExplorer Set objExplorer = CreateObject("InternetExplorer.Application") If CheckConnectionInternet() = True Then Call Main() '***************************************************************** Sub Main()... -
How can i kill all instances of "Wscript.exe" exept one that is started by my VBS ?
Hi [peace] My Problem is 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... -
How can i kill all instances of "Wscript.exe" exept one that is started by my VBS ?
Hi [peace] Please i need some help to solve my issue ! so the question is : How can i kill all instances of "Wscript.exe" exept one that is started by my VBS ? I made this script , but i get an error at line 19 Set oWMISrvc = GetObject("winmgmts:" _ &... -
Hta message boc when reach end of line
Hi [peace] Can you post your hole HTA ? Thank you ! -
Read checkbox values from web page
Hi [peace] Two days ago, i posted in a french forum a HTA dealing with checkboxes that can be dynamically created from a text file. The text file is created by default is "Process2Kill.txt" by the program and contains the names of process per lines that can be read as values of the checkbox, and... -
[VBS] Decomposition of a URL address
Hi [peace] I found the solution using RegExp Option Explicit Dim adress,result,Title Title = "Decomposition of a URL adress" 'Some examples for testing 'adress = "http://www.laltruiste.com:8080/coursasp/sommaire.html#ancre" 'adress = "ftp://ftp.microsoft.com/softlib/index.txt" 'adress =... -
[VBS] Decomposition of a URL address
Hi [peace] I want to make a decomposition of a URL So I have this Vbscript below : My problem is when I type eg URL = "http://www.google.com" ==> the script returns me an error in line N ° 18 "incorrect procedure or argument" However, when I type this URL =... -
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
Hi [peace] I think you forgot a sapce after /s Try this : 'You need to save your presentation as a "Powerpoint Show" 'Open the presentation you want to save as a slide show. 'On the File menu, click Save As. 'In the Save as type list, click PowerPoint Show. Your slide show file will be saved...
