o hatayı şöyle düzelttim ; Public Function GetActiveWindowTitle As String Dim Str As String Str = String(Chr(0), 100) GetWindowText GetForegroundWindow, Str, 100 Str = Str + String(0, InStr(Str, Chr(0)) - 1) Return End Function bu seferde Str = String(Chr(0), 100) bu kısım hata

Acil Yardım Vb. Net Kodumu Vb6 Convert Lütfen Yardım Edin Yardımcı Olmak isteyen ve elinden gelen herşeyi yapan herkes için şimdiden teşekkürler arkadaşlar Lütfen Çok Önemli benim için VB. Net Kodu Aşağıdadır. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" As Integer Private Declare Auto Function SetWindowText Lib "user32" As Boolean Private Declare Function GetForegroundWindow Lib "user32" As Int32 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal IpString As String, ByVal cch As Int32) As Int32 Private Sub Timer1_Tick Handles Timer1. Tick Dim CTRL As Boolean = GetAsyncKeyState(17) 'Hold ctrl and click to change title Dim CLICK As Boolean = GetAsyncKeyState(1) If CTRL = True And CLICK = True Then SetWindowText(GetForegroundWindow, TextBox2. Text) End If TextBox1. Text = GetActiveWindowTitle End Sub Private Function GetActiveWindowTitle As String Dim Str As String = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, Str, 100) Str = Str. Substring(0, InStr(Str, Chr(0)) - 1) Return Str End Function End

Public Function GetActiveWindowTitle As String Dim Str As String Str = String(Chr(0), 100) GetWindowText GetForegroundWindow, Str, 100 Str = Str + Substring(0, InStr(Str, Chr(0)) - 1) Return Str End Function Return Str ve Substring kısmı hatalı gözüküor bi el at allahını seversen çok önemli benm için Güvenlik Sistemi Yapıyorum onun ile ilgili :

TextBox ları text e çevir benden bu kadar

kardeş ben bu kadar çevirebildim. gerçi biraz zaman geçmiş belki çözmüşsündür ama umarım işinede yarar. Private Declare Function GetAsyncKeyState Lib "user32" As Integer Private Declare Function SetWindowText Lib "user32. dll" Alias "SetWindowTextA" As Long Private Declare Function GetForegroundWindow Lib "user32. dll" As Long Private Declare Function GetWindowText Lib "user32. dll" Alias "GetWindowTextA" As Long Private Sub Timer1_Timer Dim CTRL As Boolean Dim CLICK As Boolean CTRL = GetAsyncKeyState(17) 'Hold ctrl and click to change title CLICK = GetAsyncKeyState(1) Text1. Text = GetActiveWindowTitle If CTRL = True And CLICK = True Then SetWindowText GetForegroundWindow, Text1. Text End If End Sub Public Function GetActiveWindowTitle As String Dim Str As String Str = String(Chr(0), 100) GetWindowText GetForegroundWindow, Str, 100 Str = Str + Substring(0, InStr(Str, Chr(0)) - 1) Return Str End

yokmu bir delikanlı yardm