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!

Search results for query: *

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

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

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

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

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

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

Part and Inventory Search

Back
Top