- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
ShellExecute( 0, "open", "microsoft-edge://?ux=copilot&tcp=1&source=taskbar" )
SysWait( 1 )
CreateObject( "WScript.Shell" ):SendKeys( "tell me latest news~" )
return nil
#include "FiveWin.ch"
function Main()
ShellExecute( 0, "open", "microsoft-edge://?ux=copilot&tcp=1&source=taskbar" )
SysWait( 1 )
CreateObject( "WScript.Shell" ):SendKeys( "tell me latest news~" )
return nil
#include "FiveWin.ch"
function Main()
ShellExecute( 0, "open", "microsoft-edge://?ux=copilot&tcp=1&source=taskbar" )
SysWait( 5 )
CreateObject( "WScript.Shell" ):SendKeys( "what time is it ?~" )
SysWait( 15 )
CreateObject( "WScript.Shell" ):SendKeys( "{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}{Tab}~" )
MsgInfo( TClipBoard():GetText() )
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 56 guests