,

(JAWS Com/Automation)
:2004
  Twitter   F******k   VKontakte   Telegram   Mastodon

, JAWS , , JAWS , COM ( , OLE Automation). Microsoft Internet Explorer™ , Microsoft Word™ , MS Office™ . , JAWS "" , . COM-, JAWS -- COM-. , JAWS COM- . , Microsoft Internet Explorer, JAWS , web-

, Microsoft Internet Explorer, JAWS, .

?

, JAWS COM-, COM- JAWS. -- Object COM- -- CreateObject. COM- JAWS . :

  1. , COM-, (.), , .). , , , Visible true, Internet Explorer:
    Var
    Object ie
    Let ie = CreateObject("InternetExplorer.Application")
    Let Ie.Visible = true;
    
  2. , COM-, (;), (. );
  3. COM- , , JAWS, .

- . , web- . , , , Microsoft Internet Explorer . - , "". , . JAWS COM-. , web-. , , "". , , , , . COM-: InternetExplorer.Application. MS Windows , Microsoft Internet Explorer.

, JAWS, , , . , default.jss ( ) . , .

( JAWS 4.5):

Script GoToURL()
Var
String str,
Object o
;  
Let str =GetSelectedText ()
;  COM-
Let o = CreateObject ("InternetExplorer.Application")
;,      http://
If StringContains (str, "http://")==1 Then
	Say("   : "+str, OT_MESSAGE)
	o.Navigate(str);
	Let o.Visible=true;
;,      
Elif StringContains (str, "@") Then
	Say(" : " + str,OT_MESSAGE)
	o.Navigate("MailTo: "+str);
;   -        
Else
	Say("  ",OT_MESSAGE)
	o.Navigate("MailTo: ?body="+str);
EndIf
EndScript

, .

, COM-. , COM- , , Outlook.Application. , -, , -, COM- , . (MailTo:) Microsoft Internet Explorer .



, .
: ©  ,  2004-2024