Jakob
-
Posts
2 -
Joined
-
Last visited
Content Type
Profiles
Forums
Events
Posts posted by Jakob
-
-
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 objXMLHTTP,HTML Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") Set objRS = CreateObject("ADODB.Recordset") objXMLHTTP.Open "GET", URL, 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 FunctionFunction LocateInfo() HTML = GetHTML(URL) StartString = "[RX]: *EBCA: " StartInfo = InStrRev(HTML, SearchString, -1) + Len(StartString) Endstring = "," for i = 1 to 13 Endinfo = InStr(StartInfo,HTML,Endstring) Data = Mid(HTML,StartInfo, Endinfo-StartInfo) StartInfo = Endinfo + Len(Data) + 1 next End Function
Here are the last couple of lines from the log:
00:30:51.85 [RX]: +COPS: 0,0,"DK SONOFON"00:30:51.87 [RX]: OK00:30:56.87 [TX]: AT*EBCA=100:30:57.10 [RX]: AT*EBCA=100:30:57.10 [RX]: *EBCA: 3901,4100,0,0,26,25,0,7,617,68,273,0,579,000:30:57.17 [RX]: OK00:30:57.17 [TX]: AT*EBCA=000:30:57.35 [RX]: AT*EBCA=000:30:57.35 [RX]: OK00:30:57.37 [TX]: AT+CSQ00:30:57.60 [RX]: AT+CSQ00:30:57.60 [RX]: +CSQ: 14,9900:30:57.62 [RX]: OK00:30:57.64 [TX]: AT+COPS?00:30:57.78 [RX]: AT+COPS?00:30:57.78 [RX]: +COPS: 0,0,"DK SONOFON"00:30:57.78 [RX]: OK00:31:02.78 [TX]: AT*EBCA=100:31:03.03 [RX]: AT*EBCA=100:31:03.03 [RX]: *EBCA: 3901,4100,0,0,26,25,0,7,617,68,273,0,579,000:31:03.09 [RX]: OK00:31:03.09 [TX]: AT*EBCA=000:31:03.28 [RX]: AT*EBCA=000:31:03.28 [RX]: OK00:31:03.29 [TX]: AT+CSQ
Any suggestions on how I can obtain this informaiton, useing LoopingI hope I have given enough information, and I hope some of you can at least give me a hint on what to doJakob.
Loop problems
in VBScript
Posted
I've made a solution myself ... But without looping.
I am still interested if anyone knows how to loop this insteadJakob