Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

0 Neutral

About Jakob

  • Rank
  1. Jakob

    Loop problems

    I've made a solution myself ... But without looping. Private Function GetHTML() Dim objXMLHTTP,HTML Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") Set objRS = CreateObject("ADODB.Recordset") objXMLHTTP.Open "GET", "C:\Programmer\MyPhoneExplorer\Debug.txt", False objXMLHTTP.Send HTML = objXMLHTTP.responseBody objRS.Fields.Append "txt", 200, 45000, &H00000080 objRS.Open objRS.AddNew objRS.Fields("txt").AppendChunk HTML GetHTML = objRS("txt").ValueEnd FunctionPrivate Function GetLink() HTML = GetHTML() StartString = "*EBCA: " StartLink = InStrRev(HTML, StartSt
  2. Jakob

    Loop problems

    Hi w3scools. 1st of all this is my first post.normaly the main page is help enough for me, but this time it wasn't .I Use Samurize (for those of you who don't know it, it graps information and puts it on your desktop)then I Use MyPhoneExplorer. A program that tells me various information about my phone. I figured out where in the log I can find The temperature. I am mainly intersted in the percentage of power on the battery and the temperatures. By using bits of old scripts I've made, I came up with this: URL = "C:\Programmer\MyPhoneExplorer\Debug.txt"Private Function GetHTML(URL) Dim ob
  • Create New...