Archaic Binary; Intelligent Disorder » Close Application VB6 Module

Close Application VB6 Module

zharvek — Mon, 21 Jun 2010 13:25:33 +0000

Simple module for your VB6 projects. This will gracefully close any application you specify.

Close Application VB6 Module

Kill Process VB6 Module

zharvek — Sun, 20 Jun 2010 13:24:30 +0000

Simple module that adds function: killprocess(“name.exe”)

KillProc VB6 Module

Find the CRC of OBDII Packet VB6

zharvek — Sat, 19 Jun 2010 13:22:58 +0000

Function FindCRC(Value)
Dim val(5) As Byte
value1 = Left(Value, 2)
value2 = Mid(Value, 4, 2)
value3 = Mid(Value, 7, 2)
value4 = Mid(Value, 10, 2)
value5 = Right(Value, 2)
val(1) = “&H” & value1
val(2) = “&H” & value2
val(3) = “&H” & value3
val(4) = “&H” & value4
val(5) = “&H” & value5
FindCRC = Hex(CalcCRC(val))
End Function

Function for VB6, (place it in a module) to find the CRC of incoming data on the BR-3 OBDII module.

Calculate the OBD CRC Packet VB6

zharvek — Sat, 19 Jun 2010 13:20:39 +0000

Function CalcCRC(s() As Byte) As Byte
checksum = 0
crcreg = 255
length = UBound(s) – LBound(s)
For i = 1 To length
bitpoint = 128
x = s(i)
For k = 0 To 7
If bitpoint And x Then
If crcreg And 128 Then
poly = 1
Else
poly = 28
End If
crcreg = (((crcreg * 2) Or 1) Xor poly) And 255
Else
If crcreg And 128 Then
poly = 29
Else
poly = 0
End If
crcreg = ((crcreg * 2) Xor poly) And 255
End If
bitpoint = bitpoint \ 2
Next k
Next
CalcCRC = (Not crcreg) And 255
End Function

VB6 function, (place it in a module) that will calculate the crc hex packet to use with the BR-3 OBDII unit.

VB6 Volume Controls Module

zharvek — Sat, 19 Jun 2010 13:19:25 +0000

Simple module I use in the front-end interface program to control volume.

Provides functions:
GetVolume()
SetVolume()
GetMute()
SetMute()

Controls the master volume in Windows 2000, XP.

VB6 Volume Control Mixer

Android Notifier

zharvek — Wed, 09 Jun 2010 13:06:28 +0000

Simple Windows program I created really quick in VB6 that will accept simple messages from the Android running the ‘android-notifier‘ application.

Since the author has not written a Windows application yet, I made this small ghetto client to hold off some at the office, and use the code in the CarputerGTP project.

Attached is the program itself, the source code for any interested, and the Microsoft Winsock component. You must place the MSWINSCK.OCX file in your C:\Windows\System32 folder.

Android-Notifier (Program Only) | Android-Notifier (Source Code) | MSWINSCK.ZIP (Winsock Component)

On the android, connect to the wireless network, and choose a custom IP. Key in the IP of the machine running this program. Done.

At the moment I only have it displaying tooltip popups for PING (Testing connection packets), SMS (Test Messages), and RING (Incoming calls).

Control Winamp 2.X in VB6

zharvek — Sun, 25 Apr 2010 02:33:04 +0000

Attached in a simple VB6 module that will help you control an running Winamp instance. I lost this awhile back, and could not find a module that came close to the features that this one offers. Digging around I found it on an old backup drive and decided to post it here.

Winamp VB6 Module
You will need to change the extension from .txt to .bas and then add it into your project.

Currently I am using this code in my project to control Winamp, along with the Winamp LCD Display Plugin to display information on my 2×16 serial LCD above the DIC. Working great so far, but I need to find some option or other way of telling the plugin to clear the LCD screen when it loads up, since the LCD remembers data sent and does not clear old data, leaving characters where there should be nothing but blank spots.