Country Based Redirection
'redirect users based on which country they are visiting your website from.
Original Author: dvchaos
Inputs
NetGeo
http://www.caida.org/tools/utilities/netgeo/
API Declarations
use and abuse.
Code
'create 2 command buttons, call the first one "Open" and the second one "Close"
'create a label
Private Sub Form_Load()
command1.tag = "open"
Private Sub Command1_Click()
If Command1.Tag = "open" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Command1.Tag = "closed"
Else
retvalue = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Command1.Tag = "open"
End If
Label1.Caption = Command1.Tag 'place a label to check to tag property of the command button
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.