Post: VB 2010 Phishing Codes?
Options
04-11-2011, 05:29 AM
#21
Jared
Tranquility.
Originally posted by bman53
you want to know how to add a splashscreen on your application?
---------- Post added at 01:28 AM ---------- Previous post was at 01:27 AM ----------
Do you wan to know how to add a Splash Screen on you application
---------- Post added at 01:28 AM ---------- Previous post was at 01:27 AM ----------
Do you wan to know how to add a Splash Screen on you application
idk but i am blowing this off, will take for ever and need so much stuff/facepalm
04-11-2011, 05:35 AM
#22
bman53
Guest
Code=============================================
Here is something you may or may not need
'
imension Variables.
Const AllowChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + _
"abcdefghijklmnopqrstuvwxyz._-"
Dim UserName As String
Dim ServerName As String
Dim x As Long
'Validate email address.
x = InStr(1, EAddress, "@")
If x = 0 Then GoTo BadAddress
If InStr(x + 1, EAddress, "@") > 0 Then GoTo BadAddress
UserName = Left$(EAddress, x - 1)
ServerName = Right$(EAddress, Len(EAddress) - x)
If Left$(UserName, 1) = "." Or Right$(UserName, 1) = "." Then GoTo BadAddress
If Left$(ServerName, 1) = "." Or Right$(ServerName, 1) = "." Or _
InStr(1, ServerName, ".") = 0 Then GoTo BadAddress
For i = 1 To Len(UserName)
If InStr(1, AllowChars, Mid$(UserName, i, 1)) = 0 Then GoTo BadAddress
Next
For i = 1 To Len(ServerName)
If InStr(1, AllowChars, Mid$(ServerName, i, 1)) = 0 Then GoTo BadAddress
Next
Validate_EmailAddress = True
Exit Function
BadAddress:
Validate_EmailAddress = False
End Function
Here is something you may or may not need
'
imension Variables.Const AllowChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + _
"abcdefghijklmnopqrstuvwxyz._-"
Dim UserName As String
Dim ServerName As String
Dim x As Long
'Validate email address.
x = InStr(1, EAddress, "@")
If x = 0 Then GoTo BadAddress
If InStr(x + 1, EAddress, "@") > 0 Then GoTo BadAddress
UserName = Left$(EAddress, x - 1)
ServerName = Right$(EAddress, Len(EAddress) - x)
If Left$(UserName, 1) = "." Or Right$(UserName, 1) = "." Then GoTo BadAddress
If Left$(ServerName, 1) = "." Or Right$(ServerName, 1) = "." Or _
InStr(1, ServerName, ".") = 0 Then GoTo BadAddress
For i = 1 To Len(UserName)
If InStr(1, AllowChars, Mid$(UserName, i, 1)) = 0 Then GoTo BadAddress
Next
For i = 1 To Len(ServerName)
If InStr(1, AllowChars, Mid$(ServerName, i, 1)) = 0 Then GoTo BadAddress
Next
Validate_EmailAddress = True
Exit Function
BadAddress:
Validate_EmailAddress = False
End Function
04-11-2011, 05:41 AM
#23
Jared
Tranquility.
Originally posted by bman53
Code=============================================
Here is something you may or may not need
'imension Variables.
Const AllowChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + _
"abcdefghijklmnopqrstuvwxyz._-"
Dim UserName As String
Dim ServerName As String
Dim x As Long
'Validate email address.
x = InStr(1, EAddress, "@")
If x = 0 Then GoTo BadAddress
If InStr(x + 1, EAddress, "@") > 0 Then GoTo BadAddress
UserName = Left$(EAddress, x - 1)
ServerName = Right$(EAddress, Len(EAddress) - x)
If Left$(UserName, 1) = "." Or Right$(UserName, 1) = "." Then GoTo BadAddress
If Left$(ServerName, 1) = "." Or Right$(ServerName, 1) = "." Or _
InStr(1, ServerName, ".") = 0 Then GoTo BadAddress
For i = 1 To Len(UserName)
If InStr(1, AllowChars, Mid$(UserName, i, 1)) = 0 Then GoTo BadAddress
Next
For i = 1 To Len(ServerName)
If InStr(1, AllowChars, Mid$(ServerName, i, 1)) = 0 Then GoTo BadAddress
Next
Validate_EmailAddress = True
Exit Function
BadAddress:
Validate_EmailAddress = False
End Function
Here is something you may or may not need
'
imension Variables.Const AllowChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" + _
"abcdefghijklmnopqrstuvwxyz._-"
Dim UserName As String
Dim ServerName As String
Dim x As Long
'Validate email address.
x = InStr(1, EAddress, "@")
If x = 0 Then GoTo BadAddress
If InStr(x + 1, EAddress, "@") > 0 Then GoTo BadAddress
UserName = Left$(EAddress, x - 1)
ServerName = Right$(EAddress, Len(EAddress) - x)
If Left$(UserName, 1) = "." Or Right$(UserName, 1) = "." Then GoTo BadAddress
If Left$(ServerName, 1) = "." Or Right$(ServerName, 1) = "." Or _
InStr(1, ServerName, ".") = 0 Then GoTo BadAddress
For i = 1 To Len(UserName)
If InStr(1, AllowChars, Mid$(UserName, i, 1)) = 0 Then GoTo BadAddress
Next
For i = 1 To Len(ServerName)
If InStr(1, AllowChars, Mid$(ServerName, i, 1)) = 0 Then GoTo BadAddress
Next
Validate_EmailAddress = True
Exit Function
BadAddress:
Validate_EmailAddress = False
End Function
okay thanks!:bro:
04-11-2011, 05:54 AM
#26
bman53
Guest
Yah sure, i could help you 
:bro:
---------- Post added at 01:54 AM ---------- Previous post was at 01:52 AM ----------
Hey i havent been active on the site before, how do i have a custom text below my username ? instead of stuff like Cub Scout or Chili Cheese
:bro:---------- Post added at 01:54 AM ---------- Previous post was at 01:52 AM ----------
Originally posted by iKeep
ha lol thanks! also are you good at setting up MySQL databese and crap? need help with mine but i gtg:bro:
Hey i havent been active on the site before, how do i have a custom text below my username ? instead of stuff like Cub Scout or Chili Cheese
04-11-2011, 01:23 PM
#27
Jared
Tranquility.
Originally posted by bman53
Yah sure, i could help you :bro:
---------- Post added at 01:54 AM ---------- Previous post was at 01:52 AM ----------
Hey i havent been active on the site before, how do i have a custom text below my username ? instead of stuff like Cub Scout or Chili Cheese
:bro:---------- Post added at 01:54 AM ---------- Previous post was at 01:52 AM ----------
Hey i havent been active on the site before, how do i have a custom text below my username ? instead of stuff like Cub Scout or Chili Cheese
okay did you figure it out? well i am not sure if i am stilll going to set up a privat server but i will let ya no if i do!
Copyright © 2024, NextGenUpdate.
All Rights Reserved.
