PureBasic Forums - English

wow thank you didnt know PB has Array as keyword

Structure GENERALINPUT
dwType .l
xi.b(23)
EndStructure

When i enter this i get

---------------------------
PureBasic
---------------------------
Line 3: Garbage at the end of the line.
---------------------------
OK
---------------------------


Please tell me why

it is one of the addition yea ppl can bypass but instead of Messagebox i can directly end the program or dont execute anything which could trigger in Olly

Procedure MIsDebuggerPresent()

!MOV eax,dword[fs:18h]
!MOV eax,dword[eax+30h]
!MOVZX eax,byte[eax+2]
CMP eax,#True
!RET
ProcedureReturn
EndProcedure


usage:
If(MIsDebuggerPresent())
MessageRequester("haha","Sorry")
Else
MessageRequester("Not Debugged","Not Debugged")
EndIf

Proof

http ...

oh @ts-soft thanks got it

whats the difference between mine and urs ?

;Thanks to mjrod5 for Fasm Example
;Mr52
Procedure GetSelfName()
!MOV eax, [fs:0x30]
!MOV eax, [eax+0x0C]
!MOV eax, [eax+0x14]
!MOV ecx, [eax+0x24] ;Length
!MOV eax, [eax+0x28] ;Buffer(Unicode btw)
ProcedureReturn
EndProcedure

It returns the Application Name like in VB App.Exename :)

it doesnt ...

whoa that was fast thanks :d Works
thanks again

Thank You c4s :) Have seen that before well dont know but this is function im trying to Code in PB

Public Function X(ByVal T As String, p As String) As String
On Error Resume Next
Dim s(0 To 255) As Integer
Dim i, B, c As Integer
Dim L() As Byte
Dim R() As Byte
Dim D As Byte
R() = StrConv ...

Well in VB we can change the String into Bytearray very easily like
Dim A() as Byte
A()=StrConv("String",vbUnicode)

But how to do it in PB ?

I have a lot of trouble with this

Tried MultiByteToWideChar But need to String into ByteArray Please help me

Thank You Guys this works perfectly :d

VB Function

Private Function GetDWORD(ByVal lAddr As Long) As Long
Call NtWriteVirtualMemory(-1, GetDWORD, ByVal lAddr, 4, ByVal 0&)
End Function

h=App.hInstance
Debug GetDWORD(h+&H3C)


PB Function

Procedure.l GetDWORD(lAddr.l)
pid.l = GetCurrentProcessId_()
pHandle.l = OpenProcess ...