Conquer online programming

Quote:

Originally Posted by iDanielx Hello, I had few questions came in my mind and I found elitepvpers a good place asking for any of the programming's questions. Currently I'm a Visual basic.net professional, and sql server too. So when i left co i decided to either start making private servers or focus on doing bots and proxies. My first question is shall I start private server programming using Visual basic or wait until I have time to read about Java syntax and work with java? My opinion is that java is more powerful so that i should wait until i have some time to go through java, what do you think? Second, what are the requirements or the things that I should know to start developing co private server? I need your advices even if you'll say something that i didn't ask about. thanks :D

Quote:

Originally Posted by IAmHawtness If you want to make bots, I don't see any reason not to use VB.NET. It's basically the same as C#, except it doesn't support pointers, and it has some other "limitations" too - It goes both ways though, VB.NET has a lot of features that C# doesn't, so since you already know VB.NET, I'd say stick with it. Developing a proxy using VB.NET isn't anymore difficult than developing one using C#. The same counts for memory based bots - If you want, I've released a process hooking VB.NET source that you could take a look at, if you're interested in that kind of stuff, of course.

Quote:

Originally Posted by BaussHacker What many features does VB.NET have, that C# doesn't? As far as I know, then the output is the same as they are both sharing same CLI.

Quote:

Originally Posted by IAmHawtness VB.NET has some more "user-friendly" features, keywords like WithEvents and Handles, On Error, IsNumeric, "With Object".. And yes, the code that is compiled is almost identical in both languages

Quote:

Originally Posted by BaussHacker Well it's not features that are important really. I would again suggest C#, if you want to continue to other more advanced things after or maybe learn C++ or whatever.

Quote:

Originally Posted by IAmHawtness Actually, if he already knows the BASIC syntax and wants to move toward some more "advanced" programming, he could use one of the many BASIC compilers out there. Take FreeBASIC for example, which is almost identical to C++ but with a BASIC syntax. It can do anything that C++ can, it supports pointers, inline assembly, macros, etc. One of the only major drawbacks is that it doesn't support classes (yet), and interfaces, although it supports user defined types which are basically the same as classes, except they don't support inheritance.

Quote:

Originally Posted by BaussHacker So it's like a C version of VB? :)

Quote:

Originally Posted by IAmHawtness Yeah, it's exactly like C with VB syntax, except it supports a tiny amount of object-oriented programming :p It's still being worked on though, and classes/inheritance/interfaces will probably be implemented some time. The "Class" keyword is already implemented, just not used.

Quote:

Originally Posted by IAmHawtness Actually, if he already knows the BASIC syntax and wants to move toward some more "advanced" programming, he could use one of the many BASIC compilers out there. Take FreeBASIC for example, which is almost identical to C++ but with a BASIC syntax. It can do anything that C++ can, it supports pointers, inline assembly, macros, etc. One of the only major drawbacks is that it doesn't support classes (yet), and interfaces, although it supports user defined types which are basically the same as classes, except they don't support inheritance.

 DIM page
 DIM notpage
 DIM a,b


 screen 12, , 2 'This sets the screen for 2 pages
 notpage = 1   'This sets the backpage

 DO
  IF page = 0 THEN page = 1 ELSE page = 0   'These two lines flip the page and the
  IF notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage
    
  SCREENSET page, notpage 'This flips the page
    
  CLS  'First we clear the screen
  b = b + 1 
  IF b > 100 THEN b = 0
  FOR a = 1 TO 128
   PSET (b,a),a 'Then we draw a line. It moves without flickering.
  NEXT a
  
 LOOP

Quote:

Originally Posted by _DreadNought_ Code: DIM page DIM notpage DIM a,b screen 12, , 2 'This sets the screen for 2 pages notpage = 1 'This sets the backpage DO IF page = 0 THEN page = 1 ELSE page = 0 'These two lines flip the page and the IF notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage SCREENSET page, notpage 'This flips the page CLS 'First we clear the screen b = b + 1 IF b > 100 THEN b = 0 FOR a = 1 TO 128 PSET (b,a),a 'Then we draw a line. It moves without flickering. NEXT a LOOP :S

#Include "windows.bi"
#Include "win/winsock.bi"
#Include "detours.bi"

'Real functions
Dim Shared OpenMutex_T As Function (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
Dim Shared ShellExecuteA_T As Function(hWnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE

'Detoured functions
Declare Function OpenMutex_F (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
Declare Function ShellExecuteA_F(hWnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE

Function DllMain (hinstDLL As HINSTANCE, fdwReason As DWORD, lpvReserved As LPVOID) As BOOL
		
	Select Case fdwReason
		
		Case DLL_PROCESS_ATTACH

			AllocConsole

			OpenMutex_T = Cast(Function(dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE, GetProcAddress(GetModuleHandle("kernel32"), "OpenMutexA"))
			ShellExecuteA_T = Cast(Function(hwnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE, GetProcAddress(GetModuleHandle("SHELL32"), "ShellExecuteA"))

			DetourRestoreAfterWith()	
			DetourTransactionBegin()
			DetourUpdateThread(GetCurrentThread())

			DetourAttach(Cast(PVOID, @OpenMutex_T), @OpenMutex_F)
			DetourAttach(Cast(PVOID, @ShellExecuteA_T), @ShellExecuteA_F)

			Dim er As Long = DetourTransactionCommit()

			If er > 0 Then
				Print "Error: 0x" & Hex(er)
			Else
				FreeConsole()
			EndIf
			
		Case DLL_PROCESS_DETACH
		
		Case DLL_THREAD_ATTACH
		
		Case DLL_THREAD_DETACH
		
	End Select
	
	Return 1
	
End Function

Function OpenMutex_F (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE
	
	If *lpName = "TQ_CONQUER00" Then
		*lpName = "COMultiClient_ " & Str(GetCurrentProcessId)
	EndIf
	
	Return OpenMutex_T(dwDesiredAccess, bInheritHandle, lpName)
	
End Function

Function ShellExecuteA_F(hwnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE
	
	If Not *lpFile = "http://co.91.com/signout/" Then
		Return ShellExecuteA_T(hwnd, lpOperation, lpFile, lpParameters, lpDirectory, nShowCmd)
	Else
		Return FALSE
	End If
	
End Function

Quote:

Originally Posted by IAmHawtness Code: #Include "windows.bi" #Include "win/winsock.bi" #Include "detours.bi" 'Real functions Dim Shared OpenMutex_T As Function (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE Dim Shared ShellExecuteA_T As Function(hWnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE 'Detoured functions Declare Function OpenMutex_F (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE Declare Function ShellExecuteA_F(hWnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE Function DllMain (hinstDLL As HINSTANCE, fdwReason As DWORD, lpvReserved As LPVOID) As BOOL Select Case fdwReason Case DLL_PROCESS_ATTACH AllocConsole OpenMutex_T = Cast(Function(dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE, GetProcAddress(GetModuleHandle("kernel32"), "OpenMutexA")) ShellExecuteA_T = Cast(Function(hwnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE, GetProcAddress(GetModuleHandle("SHELL32"), "ShellExecuteA")) DetourRestoreAfterWith() DetourTransactionBegin() DetourUpdateThread(GetCurrentThread()) DetourAttach(Cast(PVOID, @OpenMutex_T), @OpenMutex_F) DetourAttach(Cast(PVOID, @ShellExecuteA_T), @ShellExecuteA_F) Dim er As Long = DetourTransactionCommit() If er > 0 Then Print "Error: 0x" & Hex(er) Else FreeConsole() EndIf Case DLL_PROCESS_DETACH Case DLL_THREAD_ATTACH Case DLL_THREAD_DETACH End Select Return 1 End Function Function OpenMutex_F (dwDesiredAccess As DWORD, bInheritHandle As BOOL, lpName As LPCTSTR) As HANDLE If *lpName = "TQ_CONQUER00" Then *lpName = "COMultiClient_ " & Str(GetCurrentProcessId) EndIf Return OpenMutex_T(dwDesiredAccess, bInheritHandle, lpName) End Function Function ShellExecuteA_F(hwnd As HWND, lpOperation As LPCTSTR, lpFile As LPCTSTR, lpParameters As LPCTSTR, lpDirectory As LPCTSTR, nShowCmd As UInteger) As HINSTANCE If Not *lpFile = "http://co.91.com/signout/" Then Return ShellExecuteA_T(hwnd, lpOperation, lpFile, lpParameters, lpDirectory, nShowCmd) Else Return FALSE End If End Function ;)

Quote:

Originally Posted by BaussHacker Do you know what Freebasic was made in? ;o I would guess maybe C++?

Quote:

Originally Posted by IAmHawtness The compiler itself is actually coded in FreeBASIC (you can find the FreeBASIC source code here: [Only registered and activated users can see links. Click Here To Register...])

Quote:

Originally Posted by BaussHacker It's kinda ironic it's coded in its own language :D