Post code snippets created in Visual Basic here.
Sticky Threads
You may add Neofreaks authorization to your programs by customizing the following code. It is presently written using my own HTTP Wrapper, which is...
On Neofreaks you are able to add highlighting to your Visual Basic code with the following bbcode (inside these tags you would place your Visual...
Normal Threads
This is the a extremly slimmed down funtioning autobuyer. Created for people who are new to vb and want to see how its done without all the extra...
Just a simple login , I published this as I noticed a bug in some of my own programs and probly yours too. The problem is with weird chars in the...
Rip, steal, improve, learn, or hell, even masturbate to it if you want. I don't give a ****. I am not explaining or annotating ****. Well, if...
If a horse costs $10, a pig $5, and a rabbit $0.50. Try to find a way to buy 100 animals, and have them only cost 100 dollars. --- Here is...
Dim cdlg As Object Public Sub xSaveList(List As ListBox, Optional clear As Boolean = False) 'self explanatory On Error Resume Next Dim lngSave...
This is being release on 4 different sites. TNP, NC, GG and NF. Its currently the only one I've seen that actually works. Its not the greatest...
Public Sub RandomizeList(ByRef List1 As ListBox) Dim strCurrent(0 To 1) As String, x As Long, tempIndex As Long For x = 0 To List1.ListCount -...
Count the amount of spaces in a string: Function CountSpaces(strInput As String) As Long CountSpaces = UBound(Split(strInput)) End...
Function IsDivisible(nToCheck As Long, nToDivideBy As Long) As Boolean Dim nD As Double: nD = nToCheck / nToDivideBy If Round(nD, 0) = nD Then...
The source is here: http://zachafer.info/snippets/vb6/Irritating%20Game.zip
Dim bFirst As Boolean Private Sub cmdFast_Click() Timer1.Enabled = Not Timer1.Enabled Timer1.Interval = 100 End Sub Private Sub...
I was just making a K-Quester and decided to put this into a function. This function is compatible with HTTPWrapper Public Function...
Private Declare Function GetTickCount Lib "kernel32" () As Long Dim Dpage As String, strHTML As String, X As Integer, strGuess As String, HTML As...
VB6: Public Function GetBetween(ByVal sSearch As String, ByVal sStart As String, ByVal sStop As String, _ Optional...
Option Explicit Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String lgB = InStr(lgB, rC, rS) +...
Now THIS is sexy code :P Credits: Zach for the main code of his usershop ABer. Sorry, I edited it and added some stuff :/ Option Explicit Dim...
Dim strHTML As String, strToken As String, x As Integer, nid As NOTIFYICONDATA2 Public Function ExtractAllR(SearchString As String, StartString As...
Basically, this allows you to send HTTP Requests without having to type the IP and Port at the end of your request. Add this to the bottom of your...
Dim strHTML As String, strCatch As String, strlvl As String, nid As NOTIFYICONDATA2 Public Function GB(rC As String, rS As String, rF As String,...
Dim HTML As String Dim strPrice As String Dim StopProgram As Boolean Public Function GB(rC As String, rS As String, rF As String, Optional lgB...
There are currently 1 users browsing this forum. (0 members & 1 guests)
Use this control to limit the display of threads to those newer than the specified time frame.
Allows you to choose the data by which the thread list will be sorted.
Order threads in...
Note: when sorting by date, 'descending order' will show the newest results first.
Forum Rules
