Comatose 290 Taboo Programmer Team Colleague

Alright, I've Got It:

You Need To Add A Plain Ole Standard Module (It's A Good Practice), inside of the module add this:

Module Code:

Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

In your form load event, You'll need this code:

Form Load Code

Dim GMTime As SYSTEMTIME
Dim TheTime As String
GetSystemTime GMTime
    
Text1.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds

For x = 1 To 10000
    Print "Frost"
Next

GetSystemTime GMTime

Text2.Text = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds
Timer1.Interval = 1
Label1.Caption = ""

And Lastly in your timer event:

Timer Event Code:

Dim GMTime As SYSTEMTIME
Dim TheTime As String
GetSystemTime GMTime

Label1.Caption = GMTime.wHour & ":" & GMTime.wMinute & ":" & GMTime.wSecond & "." & GMTime.wMilliseconds

So Far, This works flawlessly for me. Let me know how it works for you.... if you need an additional help, let me know.

Comatose 290 Taboo Programmer Team Colleague
Private Sub Form_Load()
	Text1.text = time

	for x = 1 to 10000
		Print "Frost"
	next

	Text2.text = time
	Timer1.Interval = 1
	Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
	Label1.Caption = Time
End Sub
Comatose 290 Taboo Programmer Team Colleague

I'm sorry,

I don't use PHP as a general rule, and therefore, I have no idea how to go about using sockets, and LWP and the like. If you needed it in perl, that would be no problem, however, There are others more proficient in PHP that can give you help.

Comatose 290 Taboo Programmer Team Colleague

The Pleasure is Mine.

Comatose 290 Taboo Programmer Team Colleague

Well,

It would go a little something like this:

Dim strURL As String
Dim bData() As Byte      ' Data variable

Dim intFile As Integer   ' FreeFile variable
strURL = "http://yourserver.com/yourpdf.pdf"

intFile = FreeFile()      ' Set intFile to an unused
                        ' file.
' The result of the OpenURL method goes into the Byte 
' array, and the Byte array is then saved to disk.

bData() = Inet1.OpenURL(strURL, icByteArray)

Open "C:\Temp\yourpdf.pdf" For Binary Access Write As #intFile
	Put #intFile, , bData()
Close #intFile
Comatose 290 Taboo Programmer Team Colleague

Use the Microsoft Internet Transfer control.... You Pass it the URL, and tell it what you want to do with it, and it will do it. You can then save the information to a file, of the same name, or with a temporary name, and then do your printing. HOW exactly to print the PDF file from a VB App is going to be the hard part. The only method I know of, is really (Really) Tacky.

Comatose 290 Taboo Programmer Team Colleague

Ah, False Positives :)

Comatose 290 Taboo Programmer Team Colleague

False Positives?

Comatose 290 Taboo Programmer Team Colleague

No No, It's not like a plugin or anything. It's just a seperate EXE that I built that protects my process list while MS's program is running to clean malware. Besides, I'm way to open source for all that. lol.

Comatose 290 Taboo Programmer Team Colleague

Yeah,

I Knew MS bought GIANT's program and slapped a label on it. I was hoping they would have done a better job of protecting the system while they are cleaning it.... but that's why I built my own personal protector to work in junction with MS's. *shrug*

Comatose 290 Taboo Programmer Team Colleague

I'm using it....

but in my personal and humble opinion, it sucks really bad. It has a huge library of signatures, but it's been my experience that's it's live shield really is no good. I also found that while it's trying to remove a lot of BHO's and other crudware, it allows others to install. Almost like their OS... it gives the appearance of multi-tasking :)

Comatose 290 Taboo Programmer Team Colleague

Did you try a system restore?

Comatose 290 Taboo Programmer Team Colleague

Honestly, I prefer firefox to anything else, as my browser of choice. It's really a nice browser, and can be downloaded from: http://www.mozilla.org/products/firefox/.

Comatose 290 Taboo Programmer Team Colleague

*Smiles* I know the feeling. Let me know the outcome.

Comatose 290 Taboo Programmer Team Colleague
Comatose 290 Taboo Programmer Team Colleague

Yikes!

Alright, Right click on the IE Icon, and go to properties. Under General Tab, Click On Settings... Go To "View Objects" And Look for anything that is out of place, or doesn't seem like you would want it installed. I would personally clear the history and cookies and files (Cache) afterword. Maybe that will help?

Comatose 290 Taboo Programmer Team Colleague

You Could Uninstall and then Reinstall Internet Explorer? Load up Control Panel, add remove programs, then add/remove windows componants. Uncheck Internet Explorer, Reboot, and Then Recheck Internet Explorer (You might need an XP CD, I'm not sure).
That could fix it.

Comatose 290 Taboo Programmer Team Colleague

Have You Rebooted?