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!

Recent content by crackoo

  1. crackoo

    HTA: Wait for event before continuing script

    Hi ! Can you explain more your idea because i don't understand at all you aim ???
  2. crackoo

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

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

    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 =...
  5. crackoo

    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 =...
  6. crackoo

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

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

    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 =...
  9. crackoo

    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/"...
  10. crackoo

    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()...
  11. crackoo

    How can i kill all instances of &quot;Wscript.exe&quot; 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...
  12. crackoo

    How can i kill all instances of &quot;Wscript.exe&quot; 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:" _ &...
  13. crackoo

    Hta message boc when reach end of line

    Hi [peace] Can you post your hole HTA ? Thank you !
  14. crackoo

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

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

Part and Inventory Search

Back
Top