EvoTalk » 工作日誌 http://evotalk.net/blog Mon, 07 Jun 2010 03:01:06 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Use TeraTerm Script http://evotalk.net/blog/2007/06/use-teraterm-script.html http://evotalk.net/blog/2007/06/use-teraterm-script.html#comments Wed, 27 Jun 2007 08:03:53 +0000 asd http://evotalk.net/blog/?p=363 需求：欲使用程式模擬 modem 三方通話的功能。

起初是打開 WinXP 內建的超級終端機，然後手動鍵入at command，測試 ok ，想寫成自動化的程式，本來是想說用 C 或 perl 來寫，打開 COM port，然後再送出 message。網路部門的同事建議使用 TeraTerm，它內建Tera Term Langauge(TTL)，可以達到自動化的目的。

使用 TeraTerm 打開 serial port COM3，對 modem 作at command 測試

寫了如下的 script

view plain
CODE:
  1. sendln 'ate1'               # 打開 echo
  2. sendln 'atx0'               # 關掉 dialtone detection
  3.  
  4. while 1
  5. wait 'RING'
  6. sendln 'ath1'             # 接聽電話
  7. wait 'OK'
  8. pause 1
  9. sendln 'atdt !;'           # flashhook
  10. wait 'OK'
  11. pause 1
  12. sendln 'atdt **,5462;'  #先按prefix **，再停頓一下再播號
  13. wait 'OK'
  14. pause 1
  15. sendln 'atdt!;'             #flashhook
  16. wait 'OK'
  17.  
  18. pause 30                    #通話時間 30秒
  19. sendln 'ath'                 #掛斷電話
  20. endwhile

ui macro

]]> http://evotalk.net/blog/2007/06/use-teraterm-script.html/feed 0 Use AT Command to Make Conference Call http://evotalk.net/blog/2007/06/use-at-command-to-make-conference-call.html http://evotalk.net/blog/2007/06/use-at-command-to-make-conference-call.html#comments Tue, 26 Jun 2007 09:53:20 +0000 asd http://evotalk.net/blog/?p=362 用 RJ-11 電話線將 nb 的數據機接孔接上公司的 5484 電話孔，打開超級終端機，若你打的指令在螢幕上看不到，可先下ATE1，打開 echo 回應，就會看到你打的指令。這時別的分機(假設是5488)打5484，終端機視窗就會顯示RING的訊息，此時下ATH1，接聽電話，再打 ATDT !; ，會看到NO DialTone 訊息，此時下ATX0，關閉偵測 dial tone。再打 ATDT **,5462，一會兒後分機 5462 就會聽到鈴鈴的聲音，此時再下 ATDT !; 就可以實現 5488、5484、5462 三方通話了。

]]> http://evotalk.net/blog/2007/06/use-at-command-to-make-conference-call.html/feed 0 COM’s Global Variable http://evotalk.net/blog/2007/06/coms-global-variable.html http://evotalk.net/blog/2007/06/coms-global-variable.html#comments Mon, 04 Jun 2007 08:27:10 +0000 asd http://evotalk.net/blog/?p=355 使用 ATL 作的 COM ，create 兩個 instance ，其中的 global 變數會互相影響
例如:

view plain
JavaScript:
  1. var asr1 = new ActiveXObject("DeltaASRCom.DeltaAsrObj");
  2. asr1.Init("config/Master.cfg", "config/cfgSound-10ms.txt"); // 預設是點歌的domain
  3. asr1.Streaming();                     //  ex: 張惠妹
  4. asr1.ChangeDomain("Stock");   //現在是股票domain
  5. asr1.Streaming();                     // ex: 台達電
  6.  
  7. var asr2 = new ActiveXObject("DeltaASRCom.DeltaAsrObj"); //預設是點歌的domain
  8. asr2.AsrFile("Test.pcm");       // ex: she 大女人主義
  9.  
  10. asr1.Streaming();    // 照理說 asr1 應該是股票domain，結果卻是點歌，被asr2影響到了

但是用 vb 作的 COM 卻沒有全域變數共享的問題，微軟的討論群組有人提到，參考global variables & MTS

有人說可以在變數前面加上 __declspec( thread ) 如

__declspec( thread ) int tls_i = 1;

或是使用 TlsAlloc(), TlsFree(), TlsGetValue() and TlsSetValue() 函式來解決 multiple thread-global variable in VC/ATL 的問題，都試過了，存取時會發生 access violation，看來好像無解的樣子。

如何使用 TlsAlloc(), TlsFree(), TlsGetValue() and TlsSetValue() 參考
Simplify the Use of Thread Local Storage

]]> http://evotalk.net/blog/2007/06/coms-global-variable.html/feed 1 修正 – Catch Google Suggest Keyword http://evotalk.net/blog/2007/05/modify-catch-google-suggest-keyword.html http://evotalk.net/blog/2007/05/modify-catch-google-suggest-keyword.html#comments Thu, 24 May 2007 02:50:28 +0000 asd http://evotalk.net/blog/?p=351 之前一篇 「Catch Google Suggest Keyword 」，抓到的熱門中文詞常包含簡體中文，若要抓繁體中文的話，需要在 google suggestion web api 加入額外的參數。google suggestion web api 的網址可透過抓封包的軟體查看。

http://www.google.com.tw/complete/search?hl=zh-TW&client=suggest&js=true&qu=

如上，需要加入參數 hl=zh-TW ，否則預設會抓到簡體中文的 hot word，qu= 就輸入欲查詢字詞的 utf8 編碼。另外抓到的熱門詞也經常包含一些雜七雜八的詞，用人工篩選需要耗費很多的時間及精神。可以透過中文 wiki 將這些熱門詞輸入查詢，若找得到就保留下來，找不到就剔除。底下的 code 和之前那一篇大同小異，多了一道手續將熱門詞送往 wiki 篩選。需注意的是 perl 的 regular expression 的 pattern 如何處理 big5，可參考 JeffHung.Blog - Perl with UTF-8 mode ，目前是採用此篇文章後面評論員的方法 :

呼叫 metaquote 函式將 big5 傳入，傳回值當作 regular expression 的 pattern。

view plain
PERL:
  1. # gsuggest.pl - Google suggest
  2. #
  3. # c Copyright, 2004-2005 By John Bokma, http://johnbokma.com/
  4. #
  5. # Last updated: 2007-04-26 17:56:35 -0600
  6. #
  7. # §什acao§?google suggest keyword ao perl script
  8. # ??-^?崦|raoIR?A?餘google suggest keywords
  9. #
  10. #!/usr/bin/perl -w
  11. use strict;
  12. use warnings;
  13.  
  14. #use URI::Escape;
  15. use LWP::UserAgent;
  16. use URI;
  17. use Encode qw/encode decode/;
  18.  
  19. my $count = 1;
  20.  
  21. open(FOUT, ">cht_filter.txt") || $!;
  22.  
  23. sub GetKeyWords
  24. {
  25. my ($key) = @_;
  26.  
  27. my $utf_data = encode("utf8", decode("big5", $key));
  28. #print "n==> $utf_datan";
  29. my $url = 'http://www.google.com.tw/complete/search?hl=zh-TW&client=suggest&js=true&qu=' . URI->new("$utf_data");
  30. #uri_escape( join ' ' => @ARGV );
  31. my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
  32. my $response = $ua->get( $url );
  33.  
  34. if (!$response->is_success) {
  35. print "$url: ", $response->status_line;
  36. return "";
  37. }
  38.  
  39. my $content = $response->content;
  40.  
  41. # extract the information from the JavaScript file response
  42. # note that the first " and the last " in the Arrays are
  43. # excluded (if data is present)
  44. my ( $element, $array1, $array2 ) = $content =~
  45. /"(.+?)".+?Array("(.+?)").+?Array("(.+?)")/;
  46.  
  47. unless ( defined $array1 ) {
  48.  
  49. print "No resultsn";
  50. #exit;
  51. return "";
  52. }
  53.  
  54. # split the first "array" on the item separator (the very first "
  55. # and the very last " are already removed)
  56. my @suggestions = split /", "/, $array1;
  57.  
  58. # remove the result(s) string from the number of results
  59. # remove   if present (no results known)
  60. # and split the second "array"
  61. # note that a negative limit is used to catch trailing empty
  62. # results (caused by removing  )
  63. $array2 =~ s/ results?//g;
  64. $array2 =~ s/ //g;
  65. my @results = split /", "/, $array2, -1;
  66.  
  67. # make suggestion => result(s) pairs.
  68. # note that the number of results is turned into a right justified string
  69. my @pairs = map { [ sprintf ( "%12s", shift @results ) => $_ ] } @suggestions;
  70.  
  71. # print the pairs in suggested order
  72. #print "@$_n"  for @pairs;
  73.  
  74. # print the pairs sorted on the number of results for each suggestion,
  75. # largest "number" first since the numbers are right justified strings.
  76. #print "nsorted:n";
  77. LookupWiki("$$_[1]") for sort { $b->[0] cmp $a->[0] } @pairs;
  79. }
  80.  
  81. sub LookupWiki
  82. {
  83. my ($key) = @_;
  84.  
  85. print "$count : $key  =>  ";
  86.  
  87. $key =~ s/s+/_/g;
  88. my $url = "http://zh.wikipedia.org/w/index.php?title=$key&variant=zh-tw";
  89. my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0' );
  90. my $response = $ua->get( $url );
  91. next if (!$response->is_success);
  92. my $content_big5 = encode("big5", decode("utf8", $response->content));
  93. my $regex1 = quotemeta('沒有找到標題');
  94. my $regex2 = quotemeta('維基百科目前還沒有與此同名的條目');
  95. if ($content_big5  =~ m/$regex1/o || $content_big5  =~ m/$regex2/o) {
  96. print "Xn";
  97. print FOUT "X $keyn";
  98.  
  99. } else {
  100. print "On";
  101. print FOUT "O $keyn";
  102. }
  103.  
  104. $count++;
  105. }
  106.  
  107. $count = 1;
  108. open(W1, "1w.txt") || die $!;
  109.  
  110. while() {
  112. GetKeyWords($_);
  113. }
  114. close W1;
  115.  
  116. open(W2, "2w.txt") || die $!;
  117. while() {
  119. GetKeyWords($_);
  120. }
  121. close W2;
  122.  
  123. close FOUT;

]]> http://evotalk.net/blog/2007/05/modify-catch-google-suggest-keyword.html/feed 1 MS SAPI Releated Resources http://evotalk.net/blog/2007/05/ms-sapi-releated-resources.html http://evotalk.net/blog/2007/05/ms-sapi-releated-resources.html#comments Tue, 22 May 2007 09:01:51 +0000 asd http://evotalk.net/blog/?p=350  

  • Speech SDK 5.1 : Download speech sdk 5.1
  • Designing Grammar Rules : xml grammar spec.
  • SAPI 5.0 Tutorial
    I . An Introduction to SAPI
    II. Text-to-Speech
    III. Dynamic Grammar
    IIII. Inline Dictation and Advanced Grammar Modifiers
    V. Voice Control
  • Speech Synthesis & Speech Recognition Using SAPI 5.1
  • C# example
    I. Simple Speech Recognition
    II. Speech Recognition
  • MFC speaks easily !
  • Grammar Compiler : How to compile the grammar from xml (txt) to cfg (bin)
  • MSDN Example
    I. Word Recognition && Free Word Recognition
    II. Persisting Recognized WAV Audio from the SR Engine
    III. Using WAV File Input with SR Engines
  • Event Interest
    I. SR Event - SpeechRecoEvents : Lists the event interests for the recognition context.
    II. SV Event - SpeechVoiceEvents : Enumerates the types of events which the SpVoice object can raise
  • MS Speech SDK Discussion Group
    • ]]>     http://evotalk.net/blog/2007/05/ms-sapi-releated-resources.html/feed 0