Tummnus a dit :

I'm starting to make a game(A Html5 game)
Using Javascript.

Todorovski a dit :

How2MakeAHtml5GameUsingJavascript?

Wolfpuppeh a dit :

me no speak program
x.x ?

Tummnus a dit :

"Program" is not a language!c:
Javacript,Html,C++,C# are languages!
If you're intrested in programming(It's a very fun thing to do imo take lessons online or irl)

Todorovski a dit :

HTML isn't actually a language, but tags which are used on forums etc.

a dit :

Option explicit
Declare Function Shit?WTFCHECKBYTERAPLACERROFLL Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long


This is the first module the one that's gonna KILL ADOBE's Menu and replace with yours

a dit :VoirMasquer

Public glPrevWndProc As Long
Public FHW As Long
Public Const GWL_WNDPROC = (-4)
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WM_KEYDOWN = &H100
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

Public Sub UnSubClass()
Call SetWindowLong(FHW, GWL_WNDPROC, glPrevWndProc)
FHW = 0
End Sub

Public Function MyWindowProc(ByVal HW As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If uMsg = WM_RBUTTONDOWN Then
Form1.PopupMenu Form1.Shitpopup
Exit Function
End If
MyWindowProc = CallWindowProc(glPrevWndProc, HW, uMsg, wParam, lParam)
End Function

Public Function SubClass() As Long
SubClass = SetWindowLong(FHW, GWL_WNDPROC, AddressOf MyWindowProc)
Form1.Caption = "YEAH I'VE JUST REPLACE THE STUPID ADOBE MENU WITH MINE MHUAHAHAHAH"
End Function

a dit :VoirMasquer

now the second module that will find the adobe's class


Option Explicit

Declare Function KillingadobeMHAUAHAHA Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function Classname Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long


Function KillingadobeMHAUAHAHA(ByVal lhWnd As Long, ByVal lParam As Long) As Long
Dim RetVal As Long
Dim WinClassBuf As String * 255
Dim WinClass As String

RetVal = Classname(lhWnd, WinClassBuf, 255)

If (InStr(WinClassBuf, Chr(0)) > 0) Then
WinClass = Left(WinClassBuf, InStr(WinClassBuf, Chr(0)) - 1)
End If

If WinClass = "MacromediaFlashPlayerActiveX" Then
FHW = lhWnd
KILL = False
ElseIf Left(WinClass, 4) = "ATL:" Then
KILL = lhWnd
KILL = False
Else
KILL = True
End If
End Function

Mitodomals a dit :

text

Todorovski a dit :

Can you please delete the long code, and paste a picture of Notepad++ or whatever you use to write the code. It is just.. too spamish. :C

Mitodomals a dit :

Bullshit
I just did two modules! If u want the full code wich means the usage just ask me

Todorovski a dit :

I don't need the code-
I just asked you if you would want to take a picture of the code instead of posting the whole code.

Mitodomals a dit :

This is programming right? a picture isn't programming

Todorovski a dit :

OOOOOOOOOH, DO YOU UNDERSTAND ME?
I meant, if you can post a picture of the scripts instead of writing them. Clear now?

a dit :

This would minimize the text and make chunks of code a lot less spacious

a dit :

// Array Remove - By John Resig (MIT Licensed)
Array.prototype.remove = function(from, to) {
var rest = this.slice((to || from) + 1 || this.length);
this.length = from < 0 ? this.length + from : from;
return this.push.apply(this, rest);
};

Fxie a dit :

For future reference: it'd help to, if you do share code (for relevance, not just randomly copy/pasting a chunk of code just for the sake of it), use
For example (useless code for demo purposes)

text