Aktív témák

• #8 lapa veterán lapa #6

  2004-10-21 22:21:11 #8

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz lapa #6 üzenetére

  van komornyik is, sztem download.microsoft.com - ''james'', az komolyabb mint a harripotteres csávó.

• #7 bitmad aktív tag

  2004-10-21 22:20:13 #7

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bitmad

  aktív tag

  
  [L]http://www.shadisoft.com[/L]
  
  [Szerkesztve]

• #6 lapa veterán csudri #5

  2004-10-21 22:14:14 #6

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz csudri #5 üzenetére

  az oldal indította sztem. tudsz te is egyszerű vbs szkriptet írni (najó találni) rá. ha ugyanezen az oldalon eddig nem jött elő, akkor passz. talán office telepítés volt nemrég?
  
  kopizd ki ezt egy *.vbs-be. nem fog fájni.
  
  '_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  '_/ This Microsoft Agent Script Template was generated by
  '_/ MASH 5.3 - The Microsoft Agent Scripting Helper
  '_/ Copyright 1998-2001 by BellCraft Technologies (Gordon Scott Bell)
  '_/ This copyright notice may not be removed without permission.
  '_/ Visit the MASH Web Site at http://www.bellcraft.com/mash
  '_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  
  ' * Agent Object
  Dim AgentControl
  
  ' * Character Objects
  Dim Merlin
  
  ' * Variables
  Dim UsedChars
  Dim MerlinID
  Dim MerlinACS
  Dim MerlinLoaded
  Dim HideReq
  Dim Req
  Dim ScriptComplete
  
  ' * Initialize
  UsedChars = ''Merlin''
  
  ' * Merlin
  MerlinID = ''Merlin''
  MerlinACS = ''Merlin.acs''
  MerlinLoaded = False
  
  ScriptComplete = False
  
  Call Main
  
  Function AgentInstalled()
  ' Purpose: Returns True if Agent 2.0 is installed, else False
  On Error Resume Next
  
  If ScriptEngineMajorVersion < 2 Then
  AgentInstalled = False
  Else
  Set AgentControl = WScript.CreateObject(''Agent.Control.2'', ''AgentControl_'')
  AgentInstalled = IsObject(AgentControl)
  End If
  End Function
  
  Sub Main()
  On Error Resume Next
  
  ' * INSERT ANY NON-AGENT RELATED SCRIPTING HERE
  
  If Not AgentInstalled() Then
  Exit Sub
  End If
  
  AgentControl.Connected = True
  
  MerlinLoaded = LoadLocalAgent(MerlinID, MerlinACS)
  
  If MerlinLoaded Then
  Call SetCharObj
  Call AgentIntro
  Else
  Call LoadError
  End If
  End Sub
  
  Function LoadLocalAgent(ByVal CharID, ByVal CharACS)
  ' Purpose: Attempts to load the specified character
  ' Returns: True if successful, False if not
  On Error Resume Next
  
  AgentControl.Characters.Load CharID, CharACS
  
  If Err = 0 Then
  LoadLocalAgent = True
  Exit Function
  End If
  LoadLocalAgent = False
  End Function
  
  Sub SetCharObj()
  ' Purpose: Sets the character reference and TTS Language ID
  On Error Resume Next
  
  Set Merlin = AgentControl.Characters(MerlinID)
  Merlin.LanguageID = &H409
  End Sub
  
  Sub AgentControl_RequestComplete(ByVal RequestObject)
  ' Purpose: Take action on completion or failure of requests
  On Error Resume Next
  
  If RequestObject <> EndReq Then
  Else
  If Not Merlin.Visible Then
  ' Trigger the Script to Close
  ScriptComplete = True
  Else
  ' It is up to the user to close the script, by right-clicking
  ' the character and selecting 'Exit'
  End If
  End If
  
  If RequestObject <> HideReq Then
  Else
  AgentControl.Characters.Unload MerlinID
  ScriptComplete = True
  End If
  End Sub
  
  Sub LoadError()
  Dim strMsg
  strMsg = ''Error Loading Character: '' & MerlinID
  strMsg = strMsg & Chr(13) & Chr(13) & ''This Microsoft Agent Script requires the character(s):''
  strMsg = strMsg & Chr(13) & UsedChars
  MsgBox strMsg, 48
  End Sub
  
  Sub AgentControl_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
  
  End Sub
  
  Sub AgentControl_DblClick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
  ' Purpose: Stop and Hide all characters on double-click
  On Error Resume Next
  
  Merlin.StopAll
  If Not MerlinID.HasOtherClients Then
  If Merlin.Visible Then
  Set HideReq = Merlin.Hide()
  Else
  AgentControl.Characters.Unload MerlinID
  ScriptComplete = True
  End If
  End If
  End Sub
  
  Sub InitAgentCommands()
  ' Purpose: Initialize the Commands menu
  Merlin.Commands.RemoveAll
  Merlin.Commands.Caption = ''My Menu Name''
  Merlin.Commands.Add ''ACO'', ''Advanced Character Options'', ''Advanced Character Options''
  Merlin.Commands.Add ''Exit'', ''Exit'', ''Exit''
  End Sub
  
  Sub AgentControl_Command(ByVal UserInput)
  ' Purpose: Determine Command that was selected either by menu or voice
  ' and run the applicable Command Script
  On Error Resume Next
  
  Dim BadConfidence
  BadConfidence = 10
  
  If (UserInput.Confidence <= -40) Then
  ' Bad Recognition
  Exit Sub
  ElseIf (UserInput.Alt1Name <> '''') And Abs(Abs(UserInput.Alt1Confidence) - Abs(UserInput.Confidence)) < BadConfidence Then
  ' Bad Confidence - too close to another command
  Exit Sub
  ElseIf (UserInput.Alt2Name <> '''') And Abs(Abs(UserInput.Alt2Confidence) - Abs(UserInput.Confidence)) < BadConfidence Then
  ' Bad Confidence - too close to another command
  Exit Sub
  Else ' High Confidence
  ' *** BEGIN MASH USER COMMANDS ***
  Select Case UserInput.Name
  Case ''ACO''
  AgentControl.PropertySheet.Visible = True
  End Select
  ' *** END MASH USER COMMANDS ***
  
  If UserInput.Name = ''Exit'' Then
  Set HideReq = Merlin.Hide()
  End If
  End If
  End Sub
  
  Sub AgentControl_Bookmark(ByVal BookmarkID)
  On Error Resume Next
  
  End Sub
  
  Sub AgentIntro()
  On Error Resume Next
  
  Call InitAgentCommands
  
  ' *** BEGIN MASH USER SCRIPT ***
  
  Merlin.Show
  Merlin.MoveTo 700, 500
  Merlin.Play ''Announce''
  Merlin.Speak ''sseretlek seevam''
  Merlin.Speak ''hello baby''
  Merlin.Hide
  
  
  ' *** END MASH USER SCRIPT ***
  
  Set EndReq = Merlin.Speak(''mrk=999999999'')
  
  Do
  WScript.Sleep 1000
  Loop Until ScriptComplete
  End Sub
  '_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
  
  
  
  [Szerkesztve]

• #5 csudri őstag lapa #4

  2004-10-21 22:12:29 #5

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csudri

  őstag

  válasz lapa #4 üzenetére

  És miért pont most jött elő?

• #4 lapa veterán csudri #3

  2004-10-21 22:11:18 #4

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz csudri #3 üzenetére

  egyébként nem kell félni, beépített ms technológia, scriptelhető karakterek text-to-speech és vice versa funkciókkal. nem rak semmi olyat a gépre amit nem kéne.

• #3 csudri őstag csudri #1

  2004-10-21 22:08:43 #3

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csudri

  őstag

  válasz csudri #1 üzenetére

  Jaj! Kimaradt a kép!
  
  szerk: Továbbra is kimarad a kép, mert a tar.hu nem akarja
  
  [Szerkesztve]

• #2 lapa veterán

  2004-10-21 22:05:36 #2

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  csekk www.theagentring.net asszem. meg keress rá a ''voice''-ra itt a ph!-n, ott is van sok okosság.
  
  upd: bocs megnéztem nincsen most agentring :F . mindegy googlézz ''microsoft agent''-et, találsz sztem jó cucukat.
  
  [Szerkesztve]

• #1 csudri őstag

  2004-10-21 22:03:27 #1

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  csudri

  őstag

  Megnyitottam egy oldalt és megjelent Merlin a bal felső sarokban. Kicsit dumált is hozzám aztán mikor bezártam az oldalt huss eltünt. Spy-ware írtóval még nem néztem, hogy feltelepedett-e valami fos a gépre, gondoltam azonnal megosztom veletek! :D
  
  Nem tudom mennyire akar Merlin károkat okozni, de tény, hogy nagyon aranyos volt. :D

Aktív témák