Enter'a basmak

muratgunay48 · 12 Ocak 2023

Arkadaşlar, sayın hocalarım, WhatsApp'tan mesaj yazmak için bu kod. Hatta daha önce Internet Explorer yerine Chrome nasıl açabilirim diye sormuştum.
Şimdi açıyor, hücredeki mesajı WhatsApp sitesini açarak yapıştırıyor, ama ENTER yapmıyor. Acaba hata nerede.
Şimdiden teşekkür ederim.
Saygılarımla.

Kod:

Private Sub CommandButton1_Click()
For i = 2 To 3
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
ActiveSheet.Shapes("xxx").Copy
ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
'Aplication.Wait Now + TimeValue("00:00:05")
Call SendKeys("^v")
Aplication.Wait Now + TimeValue("00:00:01")
Call SendKeys("{ENTER}", True)
Next i
End Sub

muratgunay48 · 15 Ocak 2023

Sayın hocalarım, konu günceldir. Yardımınızı rica ediyorum. Koddaki iki hatayı düzettim. Birincisi her seferinde Chrome açıyordu, ikincisi zamanlama.
Yalnız hâlâ her seferinde ayrı WhatsApp sekmesi açıyor.
ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Satırını ayıramadım.

Kod:

Private Sub CommandButton1_Click()
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus
For i = 2 To 4
ActiveSheet.Shapes("interpress").Copy
ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait (Now + TimeValue("0:00:03"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("0:00:03"))
Call SendKeys("{ENTER}")
Next i
End Sub

Dediğim gibi ENTER'a basmıyor. Ayrıca zaten açık WatsApp sekmesi varsa tekrar açmaması için bir şey yapılabilir mi?
Şimdiden teşekkür ederim.
Saygılarımla.

yusuf1284 · 15 Ocak 2023

Şu şekilde dener misiniz

C++:

ActiveWorkbook.FollowHyperlink Address:= "http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2), NewWindow:=False

muratgunay48 · 15 Ocak 2023

yusuf1284' Alıntı:
Şu şekilde dener misiniz

C++:

ActiveWorkbook.FollowHyperlink Address:= "http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2), NewWindow:=False

Hocam olmadı. Yine aynı netice. Ayrıca ENTER'a basmıyor.

yusuf1284 · 15 Ocak 2023

Bilgim yok maalesef başka biri yardımcı olur umarım

dedenet · 29 Ocak 2023

Murat bey sorunuza cevap bulabildiniz mi, bana da bu şekilde bir çalışma lazımdı?

dedenet · 30 Ocak 2023

muratgunay48' Alıntı:
Sayın hocalarım, konu günceldir. Yardımınızı rica ediyorum. Koddaki iki hatayı düzettim. Birincisi her seferinde Chrome açıyordu, ikincisi zamanlama.
Yalnız hâlâ her seferinde ayrı WhatsApp sekmesi açıyor.
ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Satırını ayıramadım.

Kod:

Private Sub CommandButton1_Click() Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus For i = 2 To 4 ActiveSheet.Shapes("interpress").Copy ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) Application.Wait (Now + TimeValue("0:00:03")) Call SendKeys("^v") Application.Wait (Now + TimeValue("0:00:03")) Call SendKeys("{ENTER}") Next i End Sub

Dediğim gibi ENTER'a basmıyor. Ayrıca zaten açık WatsApp sekmesi varsa tekrar açmaması için bir şey yapılabilir mi?
Şimdiden teşekkür ederim.
Saygılarımla.

Call SendKeys("{ENTER}") yerine
Call SendKeys("{ENTER}", TRUE) yazsanız çalışır mı acaba?

muratgunay48 · 5 Şubat 2023

dedenet' Alıntı:
Call SendKeys("{ENTER}") yerine
Call SendKeys("{ENTER}", TRUE) yazsanız çalışır mı acaba?

Çalışmadı yine.

tahsinanarat · 5 Şubat 2023

Bu şekilde bir not almışım ancak denemedim, deneyip sonucu bildirebilirmisiniz.

=EĞER(B3="","",KÖPRÜ(BİRLEŞTİR("https://api.whatsapp.com/send?phone=",KIRP(A3),"&text=",URLKODLA(B3)),"Gönder!"))

muratgunay48 · 7 Şubat 2023

tahsinanarat' Alıntı:
Bu şekilde bir not almışım ancak denemedim, deneyip sonucu bildirebilirmisiniz.

=EĞER(B3="","",KÖPRÜ(BİRLEŞTİR("https://api.whatsapp.com/send?phone=",KIRP(A3),"&text=",URLKODLA(B3)),"Gönder!"))

Deneyeceğim.

taner_537 · 19 Nisan 2023

Merhabalar değerli üstadlarım. Bir problemim var. Daha önce bir excel tablosundaki yapıya uygun whatsapp pc uygulaması üzerinden bir whatsapp grubuna mesaj gönderen çalışmam vardı. İş bilgisayarlarımıza windows 11 kurulduktan sonra whatsapp uygulaması microsoft store dan indirilen bir uygulama haline geldi. Dolayısıyla önceden whatsapp programını çalıştırmak için aktif kullandığım shell komutu çalışmıyor. Windows app halindeki whatsapp uygulamasını komutla çalıştırmanın yolu nedir yardımcı olabilir misiniz?

Önceki Kod:

Sub WhOpen()
Dim X As Variant
Dim u As String
Dim Path As String

u = Environ("Username")

Path = "C:\Users\" & u & "\AppData\Local\WhatsApp\WhatsApp.exe"

X = Shell(Path, vbNormalFocus)

End Sub

RBozkurt · 20 Nisan 2023

taner_537' Alıntı:
Merhabalar değerli üstadlarım. Bir problemim var. Daha önce bir excel tablosundaki yapıya uygun whatsapp pc uygulaması üzerinden bir whatsapp grubuna mesaj gönderen çalışmam vardı. İş bilgisayarlarımıza windows 11 kurulduktan sonra whatsapp uygulaması microsoft store dan indirilen bir uygulama haline geldi. Dolayısıyla önceden whatsapp programını çalıştırmak için aktif kullandığım shell komutu çalışmıyor. Windows app halindeki whatsapp uygulamasını komutla çalıştırmanın yolu nedir yardımcı olabilir misiniz?

Önceki Kod:

Sub WhOpen()
Dim X As Variant
Dim u As String
Dim Path As String

u = Environ("Username")

Path = "C:\Users\" & u & "\AppData\Local\WhatsApp\WhatsApp.exe"

X = Shell(Path, vbNormalFocus)

End Sub

Deneyiniz.

Kod:

Sub WhOpen()
    Dim u As String
    Dim Path As String

    u = Environ("Username")
    Path = "C:\Users\" & u & "\AppData\Local\WhatsApp\WhatsApp.exe"

    Shell Path
End Sub

taner_537 · 21 Nisan 2023

RBozkurt' Alıntı:

Deneyiniz.

Kod:

Sub WhOpen()
    Dim u As String
    Dim Path As String

    u = Environ("Username")
    Path = "C:\Users\" & u & "\AppData\Local\WhatsApp\WhatsApp.exe"

    Shell Path
End Sub

Merhaba. Teşekkür ederim ilgilendiğiniz için. Yalnız sorun şu ki normalde kod çalışıyor fakat whatsapp artık exe uzantılı ve path bölümünde yazdığım uzantida olmadığı için WhatsApp acilamiyor. Sebebi de WhatsApp in artik windows store dan indirilen bir uygulama haline gelmesi. Yani benim windows uygulamasi olarak kurulumu gerçekleşmiş bir WhatsApp i kod ile açabilmeye ihtiyacım var. Bunu da yukaridaki kodlarla sağlayamıyorum malesef.

netzone · 21 Nisan 2023

taner_537' Alıntı:
... Yalnız sorun şu ki normalde kod çalışıyor fakat whatsapp artık exe uzantılı ve path bölümünde yazdığım uzantida olmadığı için WhatsApp acilamiyor...

Merhaba, söz konusu uygulamanız her ne kadar MS Store üzerinden çalıştığını düşünseniz de bilgisayarınızda kayıtlı EXE uzantısına erişebilirsiniz.

Yapmanız gereken;
- Whatsapp Uygulamanızı açın.
- Görev yöneticisinde Whatsappı bulun.
- Gruplanmış şekildeyse grubu açın.
- Whatsapp üzerinde sağ tuş yapıp >Dosya konumunu açın.

Açılan pencerenin yolu sonuna \whatsapp.exe ekleyerek kodlarınızda yer alan konumu güncelleyin.

Muhtemelen kodlarınız tekrar çalışmaya devam edecektir.
İyi çalışmalar.

taner_537 · 27 Nisan 2023

netzone' Alıntı:
Merhaba, söz konusu uygulamanız her ne kadar MS Store üzerinden çalıştığını düşünseniz de bilgisayarınızda kayıtlı EXE uzantısına erişebilirsiniz.

Yapmanız gereken;
- Whatsapp Uygulamanızı açın.
- Görev yöneticisinde Whatsappı bulun.
- Gruplanmış şekildeyse grubu açın.
- Whatsapp üzerinde sağ tuş yapıp >Dosya konumunu açın.

Açılan pencerenin yolu sonuna \whatsapp.exe ekleyerek kodlarınızda yer alan konumu güncelleyin.

Muhtemelen kodlarınız tekrar çalışmaya devam edecektir.
İyi çalışmalar.

Çok çok teşekkür ederim kod çalıştı, sağolun. Çalıştırdığım bilgisayarda windows 11 kuruluydu hiç bir problem yaşamadan açtı whatsapp uygulamasını. Yalnız aynı kodları şimdi windows 10 pro yüklü bir bilgisayarda açmaya çalışıyorum fakat bu kez de invalid call procedure or argument hatası alıyorum. (Run time error 5) Uzantıyı buluyor fakat shell satırında hata veriyor. Bu bilgisayardan önce ilk kullandığım bilgisayarda sorunsuz çalışmıştı. Kodlarda herhangi bir değişiklik de yapmadım. Problemin ne olduğunu anlayamıyorum. Bu konuda da var mı bir öneriniz? Destekleriniz için şimdiden teşekkürler.

Sub WhOpen()

Dim X As Variant
Dim u As String
Dim Path As String

u = Environ("Username")

Path = "C:\Program Files\WindowsApps\5319275A.WhatsAppDesktop_2.2314.6.0_x64__cv1g1gvanyjgm\WhatsApp.exe"

X = Shell(Path, vbNormalFocus)

End Sub

Ş.K.Ç. · 21 Mart 2024

Sayın hocalarım öncelikle hepinize sevgi ve selamlar
Forumda yaptığım araştırmalar sonucu buraya kadar gelebildim. Eğer cevabı mevcutsa kusuruma bakmayın.

SendKeys ("{Enter}") - Burada Enter tuşuna bastırma sorununu çözdüm

SendKeys ("TextBox1.Text") - ( BURADA TEXT BOX.TEXT İÇERİĞİNİ ARAMA MOTORUNDA ARAMAK İSTİYORUM)

Arama motoruna textbox.text yazıyor . Textbox'ın içeriğini değil.

Verilecek olası cevaplar için şimdiden teşekkür ederim.

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_RIGHTDOWN = &H2
Public Const MOUSEEVENTF_RIGHTUP = &H4

Sub GOOGLE_ARAMA()

'move cursor and click
SetCursorPos 450, 1050 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:03")

Call SendKeys("google", True)

SendKeys ("{Enter}")

SendKeys ("TextBox1.Text")

Application.Wait Now + TimeValue("00:00:02")

'lej
SetCursorPos 727, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

Korhan Ayhan · 21 Mart 2024

Böyle olabilir mi..

SendKeys TextBox1.Text

Ş.K.Ç. · 21 Mart 2024

Korhan Ayhan' Alıntı:
Böyle olabilir mi..

SendKeys TextBox1.Text

Malesef hocam Run time 424 hatası veriyor

Korhan Ayhan · 21 Mart 2024

Aslında Userform üzerinde denediğimde çalışıyor..

Sanırım siz başka bir pencereye bu veriyi göndermeye çalışıyorsunuz..

Aşağıdaki uygulama açık olan Notepad uygulamasının başlık kısmına veriyi aktarıyor..

Boş bir modüle aşağıdaki kodu uygulayınız..

C++:

Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Public Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Public Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
    Public Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
#Else
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Public Declare Function GetForegroundWindow Lib "user32" () As Long
#End If

Public Sub SendTextToWindow(windowTitle As String, textToSend As String)
    Dim hWnd As LongPtr
    
    ' Hedef pencerenin tanımlayıcı numarasını al
    hWnd = FindWindow(vbNullString, windowTitle)
    
    ' Eğer hedef pencere bulunamazsa hata mesajı göster
    If hWnd = 0 Then
        MsgBox "Hedef pencere bulunamadı.", vbExclamation
        Exit Sub
    End If
    
    ' Hedef pencereyi etkinleştir
    SetForegroundWindow hWnd
    
    ' WM_SETTEXT mesajını kullanarak veriyi gönder
    SendMessage hWnd, &HC, 0, ByVal textToSend
End Sub

Userformun kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

C++:

Option Explicit

Private Sub CommandButton1_Click()
    ' TextBox içeriğini Notepad uygulamasına gönder
    SendTextToWindow "Untitled - Notepad", TextBox1.Text
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = "DENEME"
End Sub

Ş.K.Ç. · 21 Mart 2024

Korhan Ayhan' Alıntı:

Aslında Userform üzerinde denediğimde çalışıyor..

Sanırım siz başka bir pencereye bu veriyi göndermeye çalışıyorsunuz..

Aşağıdaki uygulama açık olan Notepad uygulamasının başlık kısmına veriyi aktarıyor..

Boş bir modüle aşağıdaki kodu uygulayınız..

C++:

Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Public Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Public Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
    Public Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
#Else
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Public Declare Function GetForegroundWindow Lib "user32" () As Long
#End If

Public Sub SendTextToWindow(windowTitle As String, textToSend As String)
    Dim hWnd As LongPtr
   
    ' Hedef pencerenin tanımlayıcı numarasını al
    hWnd = FindWindow(vbNullString, windowTitle)
   
    ' Eğer hedef pencere bulunamazsa hata mesajı göster
    If hWnd = 0 Then
        MsgBox "Hedef pencere bulunamadı.", vbExclamation
        Exit Sub
    End If
   
    ' Hedef pencereyi etkinleştir
    SetForegroundWindow hWnd
   
    ' WM_SETTEXT mesajını kullanarak veriyi gönder
    SendMessage hWnd, &HC, 0, ByVal textToSend
End Sub

Userformun kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

C++:

Option Explicit

Private Sub CommandButton1_Click()
    ' TextBox içeriğini Notepad uygulamasına gönder
    SendTextToWindow "Untitled - Notepad", TextBox1.Text
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = "DENEME"
End Sub

Sayın hocam ben durumu anlatamadım galiba.
Ben google üzerinden bir siteye giriş yapma istiyorum
Sitenin giriş sayfasına kadar otomatik gelebildim ama birden fazla kullanıcı adı ve şifre olduğu için bu kısmı önceden yazılmış textbox veya herhangi bir hücreden iletmek istiyyorum.

kodun tamamı aşağıdır

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_RIGHTDOWN = &H2
Public Const MOUSEEVENTF_RIGHTUP = &H4

Sub deneme()

'move cursor and click
SetCursorPos 450, 1050 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:03")

Call SendKeys("https://ts1.x1.europe.travian.com/build.php?id=39&gid=16&tt=2", True)

SendKeys ("{Enter}")

Application.Wait Now + TimeValue("00:00:02")

'lej
SetCursorPos 727, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'pret
SetCursorPos 727, 585 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'emp
SetCursorPos 727, 627 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'casus
SetCursorPos 884, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'imp
SetCursorPos 884, 585 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'casares
SetCursorPos 884, 627 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'koç
SetCursorPos 1055, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'manço
SetCursorPos 1055, 585 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'reis
SetCursorPos 1214, 546 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'göçmen
SetCursorPos 1214, 585 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'kaho
SetCursorPos 1214, 627 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'x kordi
SetCursorPos 725, 745 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

SendKeys ("TextBox1.Text")

'y kordi
SetCursorPos 792, 745 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'destek
SetCursorPos 911, 697 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'yağma
SetCursorPos 911, 719 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'saldırı
SetCursorPos 911, 745 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:01")

'gönder
SetCursorPos 720, 785 'x and y position
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
Application.Wait Now + TimeValue("00:00:03")

'KApat
'SetCursorPos 2000, 35 'x and y position
'Application.Wait Now + TimeValue("00:00:01")
'mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
'mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

End Sub

Enter'a basmak

muratgunay48

muratgunay48

yusuf1284

muratgunay48

Ekli dosyalar

yusuf1284

dedenet

dedenet

muratgunay48

tahsinanarat

muratgunay48

taner_537

RBozkurt

taner_537

netzone

taner_537

Ş.K.Ç.

Korhan Ayhan

Administrator

Ş.K.Ç.

Korhan Ayhan

Administrator

Ş.K.Ç.