hesap makinesini çalıştırıyorum ama istediğim sayıyla işlem yaptıramıyorum

[forumevrim]

Sub islem()

m = Shell("calc.exe", 1)
AppActivate m
SendKeys 5, True
SendKeys "{+}", True
SendKeys 4, True
SendKeys "=", True

End Sub

kodum bu hesap makinesini açıyor ama oraya 5 yazıp istediğim işlemi yapmıyor verdiği hata invalid procedure call or argument. 5 için diyor. Teşekkürler

 

[Necdet]

Merhaba
ChatGPT nin verdiği kod: kendinize uyarlayınız.

Sub HesapMaki()
    Dim wsh As Object
    ' Hesap makinesini aç
    Shell "calc.exe", vbNormalFocus
    ' İşlemi göndermek için kısa bir bekleme süresi
    Application.Wait Now + TimeValue("00:00:02")
    ' SendKeys kullanarak hesap makinesine işlem gönder
    Set wsh = CreateObject("WScript.Shell")
    wsh.AppActivate "Hesap Makinesi" ' Hesap makinesini aktif yap
    wsh.SendKeys "25+75="
End Sub