And the fact that it is in PHP makes it look 10x worse[:(]
H
hash
@hash
0
Reputation
5
Posts
41
Profile views
0
Followers
0
Following
Best posts made by hash
This user hasn't posted anything yet.
Latest posts made by hash
-
RE: Percents can be really tricky ones
-
RE: Only in VB...
I would have submitted it for the front page, but it was a reply in a forum, not in production code
-
Only in VB...
I just found this code that somebody is recommending people to use to "automatically register ocx files programatically"... Brace yourself... This could only happen in VB...
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Register(OCXName As String)
SetCursorPos 32, Screen.Height / 15 - 10
mouse_event MOUSEEVENTF_ABSOLUTE, 32, Screen.Height / 15 - 10, 1, 1
mouse_event MOUSEEVENTF_LEFTDOWN, 32, Screen.Height / 15 - 10, 1, 1
mouse_event MOUSEEVENTF_LEFTUP, 32, Screen.Height / 15 - 10, 1, 1
SendKeys ("R")
SendKeys ("regsvr32 " & OCXName)
SendKeys (vbKeyReturn)
End Sub
Private Sub Form_Click()
Register "blahblah.ocx"
End Sub
-
RE: The biggest WTF is the WTF software!!!
btw, I use CS on many sites I haven't ever encountered any of these problems, i'm pretty sure all of the "Issues" with this forum are caused by the mods that Alex made.
-
RE: The biggest WTF is the WTF software!!!
If you don't mind using ASP 3.0 then http://www.webwizguide.info/bbs/default.asp is a great platform