ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：何を示しているのかわかりません）

謎めいたコードの意味と解読方法についての疑問点

2007/08/09 19:56

このQ&Aのポイント

謎のプログラムが示す意味を解読する方法とは？
セキュリティ上のリスクを伴う可能性があるプログラムの意図とは？
センセーショナルなプログラムによる被害を防ぐための対策とは？

oga_710
お礼率56% (110/195)

その他（プログラミング・開発）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#49664

2007/08/09 22:12 回答No.1

見たところ、ExcelのマクロかVBScriptのようですね。アンチウイルスソフトのテスト用に作られたダミーウイルスのように見えます。やや怪しそうな部分もあるので、試してません。

関連するQ&A

EXCELをもう一つ立ち上げたい

マクロを使用して sub 関数１ shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1 end sub と記述すれば　EXCELがもう一つたちあがります。また、 sub 関数２ Workbooks.Open FileName:="C:\MyDocuments\aa.xls" end sub と記述すればMyDocments配下のaa.xls というファイルがたちあがります。そこで、ここから本題なのですが、 aa.xlsというEXCELファイルをもう一つのEXCELに立ちげる方法を教えて頂けませんでしょうか？よろしくお願いします。
vba マクロの組み立て不能

毎度お世話になります。 Sub 呼び込み() ChDir "C:\08-C\9\1k-1\m\" Dim c1 As Variant Dim ran1 As Range Set ran1 = Range("ad16: ad40") '<----- Windows("SW.xls").ActiveSheet 記録前の削除 ran1.Delete Shift:=xlShiftToLeft For i = 1 To 10 '<----- 実際には10から20です。 Workbooks.Open Filename:=ThisWorkbook.ActiveSheet.Cells(i + 10, "A") & ".xls", UpdateLinks:=3 Windows("SW.xls").Activate With Windows("SW.xls").ActiveSheet c1 = Cells(i + 10, "A") .Cells(i + 15, 30).Formula = "Windows" & "(" & Chr$(34) & c1 & ".xls" & Chr$(34) & ").Activate" ' 出来上がり例 Windows("出来高.xls").Activate　とかWindows("1334.xls").Activate　　 End With Next i End Sub 'Sub 呼び込み() した後に時間をおいて保存に移りたいのですが　Range("ad16")よりの書き込みにを '利用して保存をしたいのです。　例＞　Windows("出来高移動平均.xls").Activate Sub 保存() Range("AD17").Select Application.CutCopyMode = False Selection.Copy ' 実際には此処に挿入したいがマクロ組み立て不能です。 Windows("出来高.xls").Activate '<----- 実際には此処に挿入したいがマクロ組み立て不能です。 ActiveWorkbook.Save: ActiveWindow.Close End Sub
エクセルＶＢＡでＰＤＦを開く

以下のような記述でアクロバットリーダーは立ち上がるのですが、「この文書を開くときにエラーが発生しました。このファイルが見つかりません」と出てきてしまいます。どのようにしたら開いてくれるのでしょうか？ Sub test3() Dim P As String P = "\\C:\AAA\sample.PDF" Shell "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" & " " & P, vbNormalFocus End Sub
AppActivateの使い方

現在開いているエクセルファイルをアクティブにしたいです。バージョンは２００３です。アクセスＶＢＡから Sub test() Dim rc As Long rc = Shell("C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE", 1) AppActivate "aaa.xls" End Sub を実行すると、新規にアプリケーションが開いて、空のBOOK１が表示されます。本当は、aaa.xlsをアクティブにしたいのですがうまく出来ません。 aaa.xlsは既に開いている状態です。 aaa.xlsはデスクトップにあります。 http://officetanaka.net/excel/vba/statement/AppActivate.htm を見ながらやってみたのですがうまく出来ません。新たなアプリケーションは立ち上げたくないけど aaa.xlsはアクティブにしたいです。
VBEで「名前を付けて保存」する方法

名前を付けて保存するマクロが知りたいのですが、いくつか条件があります。 1.ファイル名は変数（4日後の日付をMMDDで。月を跨いでもきちんと認識されるように） 2.保存するディレクトリはC:\Program Files直下。 C:\Program Files\0422.xls C:\Program Files\0423.xls という感じで毎日ファイルを増やしたいのです。 3.ファイルに読み取りのパスワードを付ける。（パスワードはファイル名と同一） 4.保存したらファイルを閉じるかどうかのダイアログを出す。上記条件の場合、どのような構文になりますでしょうか？識者の方々ご指導よろしくお願いいたしますm(_ _)m
VBA改行について

Sub 改行() MsgBox "a" & vbCr & "i" MsgBox "a" & Chr(13) & "i" MsgBox "a" & vbLf & "i" MsgBox "a" & Chr(10) & "i" MsgBox "a" & vbCrLf & "i" MsgBox "a" & vbNewLine & "i" MsgBox "a" & Chr(13) + Chr(10) & "i" End Sub 上記のコードを実行すると、すべて改行できますが、どれが正しい、一般的な改行のコードなのでしょうか？どれも正解だとは思いますが、企業でプログラムを作る際、どの改行のコードを使うのか知りたいです。よろしくお願い致します。
結合した文字列をファイル名に使えない

Excel上に入力されているパス名とファイル名のデータを組み合わせて、様々なファイルを開いたりコピーしたりするVBAのコードを作ろうとしています。仮にシート上のA1セルに、C:\Documents and Settings\デスクトップ　というパス名 A2セルに　URIAGE.xls　というファイル名が入力されていたとして、 A1の文字列データとB1の文字列データを結合する場合、 Sub FileSousa() 　Dim a As String 　Dim b As String 　Dim c As String 　a = Cells(1, "A").Value 　b = Cells(2, "A").Value 　c = Chr(34) & a & "\" & b & Chr(34) 　Range("A3") = c としてみると、確かにA3セルには、"C:\Documents and Settings\デスクトップ\URIAGE.xls" と出力され、文字列が結合されたことがわかるのですが、その変数cのデータを使って　Workbooks.Open Filename:=c として、そのファイルを開こうとすると、ファイル名が見つからないとしてエラーになります。ファイルはデスクトップ上の確かにその名前で存在しており、直接 Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\URIAGE.xls" とすると開きます。 "　を　Chr(34)によって入力したのがいけないのでしょうか、 Workbooks.Open Filename:=×××　には、変数を置いてはいけないのでしょうか。そもそも文字列の結合は、"あ"　&　"い"　→　"あい"　となるのが基本だと思うのですが、 a="あ"、b="い"、c=a&b　→　c="あい"として結合した変数cについては、ファイル操作上のファイル名の設定項目として使えないのでしょうか。
VBA初心者です＞＜；教えてください・・・

VBA初心者です＞＜；教えてください・・・ A.xlsとB.xlsとC.xlsを開いているとして現在、A.xlsが一番上でアクティブなのを B.xlsを１番上でアクティブにさせたい場合、 Workbook("B.xls").Activate とするとSubまたはFuncyionが定義されていませんとエラーになります。これはどうしたらよいのでしょうか。マクロの途中でやりたいので、Subが使えない気がするのですが。。。宜しくお願いいたします
Aptana 1.5 で Rails プロジェクトが作れません。

Aptana 1.5 で Rails プロジェクトが作れません。 mongorel のソースでエラーが出ているのですが、どう対処したらよいのでしょうか？ "2276" C:/Program Files/ruby-1.9.1-p129-i386-mswin32/lib/ruby/gems/1.9.1/gems/mongrel-1.1.5-x86-mswin32-60/lib/mongrel.rb:12:in `require': 126: �w�肳�ꂽ��W��[��܂��B - C:/Program Files/ruby-1.9.1-p129-i386-mswin32/lib/ruby/gems/1.9.1/gems/mongrel-1.1.5-x86-mswin32-60/lib/http11.so (LoadError) from C:/Program Files/ruby-1.9.1-p129-i386-mswin32/lib/ruby/gems/1.9.1/gems/mongrel-1.1.5-x86-mswin32-60/lib/mongrel.rb:12:in `<top (required)>' from C:/Program Files/ruby-1.9.1-p129-i386-mswin32/lib/ruby/gems/1.9.1/gems/mongrel-1.1.5-x86-mswin32-60/bin/mongrel_rails:11:in `require' from C:/Program Files/ruby-1.9.1-p129-i386-mswin32/lib/ruby/gems/1.9.1/gems/mongrel-1.1.5-x86-mswin32-60/bin/mongrel_rails:11:in `<top (required)>' from C:\Program Files\ruby-1.9.1-p129-i386-mswin32\bin\mongrel_rails:19:in `load' from C:\Program Files\ruby-1.9.1-p129-i386-mswin32\bin\mongrel_rails:19:in `<top (required)>' from -e:2:in `load' from -e:2:in `<main>'
vba 呼び込みで１回目のファイルを参照しエラー　

お世話になります。 Sub test02() ' ChDir "C:\08-C\9\1k-1\m\" For i = 1 To 10 Workbooks.Open Filename:=Cells(i + 10, "A") & ".xls", UpdateLinks:=0 i = i + 1 Next i End Sub 上記のコードで呼び出しをすると一回目は指示どうりに動作　for to 文ですから二回目の呼び出しが一回目のファイルを参照してしまうのでエラーに　（此処で大弱り） dirの　 "C:\08-C\9\1k-1\m\"　　\mにexcelのファイルが有ります。参照先の　　Cells(i + 10, "A") & ".xls"は　 "C:\08-C\9\1k-1\m\" 　の中にsw.xls　が有り A列１１より数字４桁で入ってその後には　数字４桁、　数字+漢字、　　漢字　の順に入っています。 A列の配列はソートをかけています。または A列１１より数字４桁　だけでも解決が付けば大変な感謝です。
VBへの変換の仕方　RS232C送信データとチェックサム

以下のプログラムをＶＢに変換する仕方を教えてください。サンプルプログラム 1110 CHKSUM=0 1120 FOR i=1 to LEN(A$) 　　　　　'A$は送信データ 1130 CHKSUM=CHKSUM+ASC(MID$(A$,i,1) 1140 NEXT i 1150 C$=CHR$((CHKSUM+13) MOD 256) 1160 PRINT #1,A$;CHR$(13);C$; 私のVBプログラムは1110行から1150行まではそのままで CHKSUM=0 FOR i=1 TO LEN(A$) CHKSUM=CHKSUM+ASC(MID$(A$,i,1) NEXT i C$=CHR$((CHKSUM+13) MOD 256) としました。送信部分を MSComm1.Output =A$ & CHR$(&H13) & C$ としてみましたが 1160行にあるセミコロン ";" はCHR$(&h3B) として送る必要があるのでしょうか? MSComm1.Output =A$ & CHR$(&h3B) & CHR$(&h13) ・・・・・・また、データとしてA$="I 02"のチェックサムは "リ" となりますが正しいのでしょうか? 以上ご教示ください。
関連付けの変更について

お世話になります。パソコンにOffice97とOffice2000をそれぞれフォルダを分けてインストールしました。　C:\Program files\Office97 　C:\Program files\Office2000 ただし、今は97がメインで2000は動作確認の為にしか使いません。そこで関連付けが2000を指しているので、DOC,XLS,PPTの関連付けを2000から97に変更しました。 < 例：DOC > 　"C:\Program Files\Office97\Office\WINWORD.EXE" /n しかし、どうしても2000から起動してしまいます。どうしたら97から起動できるようになるのでしょうか？御分かりになられる方がいらっしゃいましたら、ぜひご回答お願いします。
リンクとリンクの間に空白の行が

VBSでhtmlファイルをつくるプログラムをつくっています。以下はその一部抜粋です。 For Each dataFile In aFolder.Files indexPageTS.WriteLine "<a target=""_blank"" href='" & fso.BuildPath(aFolder.Path, dataPageName) & "'>" & linkName & "</a>" Next indexPageTS.WriteLine "" とにかく、ファイル名でリンクを作ってループしているのですが、これをブラウザで表示すると、そのリンクとリンクの間に空白の行が挿入されてしまっているようなのです。いったいなぜでしょうか？ HTMLはまったくの初心者です。ようやくインデントができた程度です。よろしくお願いします。
ＶＢからExcelクローズ検知

ＶＢで作成したaaa.exeの中でエクセルファイルbbb.xls、ccc.xlsを呼び出しています。 taskIdB = Shell("C:\Program Files\Microsoft Office\Office10\excel.exe C:\bbb.xls", vbHide) taskIdC = Shell("C:\Program Files\Microsoft Office\Office10\excel.exe C:\ccc.xls", vbHide) bbb.xls、ccc.xlsともにWorkbook_Openイベントで自動的にVBAが起動し、処理が終了すると自分自身をクローズするようになっています。ここで問題になるのが、ccc.xls は bbb.xlsの処理完了を待ってから起動したいのですが、連続的に起動してしまう点です。 aaa.exeのなかで、bbb.xlsの終了を検知するなど、良い解決方法があればお教え下さい。 WindowsはXp pro.、ＶＢは6.0、Excelは2002を使用しています。よろしくお願いいたします。
マップとアルゴリズム

またまた質問です。以下の処理をさせるとエラーが出ます。どなたか見ていただけますか？環境はWindows XP, Visual Studio.NETです。 -----処理部分------------------ map<char, int> m; for(i=0; i<10; i++){ 　m.insert(pair<char, int>('A'+i, i)); } reverse(m.begin(), m.end()); map<char, int>::iterator p; p = m.begin(); while( p != m.end() ){ 　cout << p->first << " " << p->second << endl; 　p++; } ------以下エラーログ--------------- C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include\utility(16) : error C2166: 左辺値は const オブジェクトに指定されています。 C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include\utility(46) : コンパイルされたクラスのテンプレートのインスタンス化 'void std::swap<const _Ty1>(const _Ty &,const _Ty &)' の参照を確認してください with [ _Ty1=int, _Ty=int ] C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include\utility(45): クラステンプレートのメンバ関数 'void std::pair<_Ty1,_Ty2>::swap(std::pair<_Ty1,_Ty2>::_Myt &)' のコンパイル中 with [ _Ty1=const int, _Ty2=int ] ClusteringMain.cpp(45) : コンパイルされたクラスのテンプレートのインスタンス化 'std::pair<_Ty1,_Ty2>' の参照を確認してください with [ _Ty1=const int, _Ty2=int ] C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include\utility(16) : error C2166: 左辺値は const オブジェクトに指定されています。
Shell関数を使って、ファイル名を指定して開くこ

オフィス２００３です。 Sub サンプル1() Dim strExcelPath As String strExcelPath = "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" Shell strExcelPath, 1 End Sub なら空のエクセルアプリケーションが開けます。でも、 Sub サンプル2() Dim strExcelPath As String strExcelPath = "D:\ファイル.xls" Shell strExcelPath, 1 End Sub だと、 “プロシージャの呼び出し、または引数が不正です。“ と言うエラーになります。 Shell関数を使って、ファイル名を指定して開くことはできないのでしょうか？
Ｂ.xlsだけを開いて、Ａ.xlsの中にあるマクロプログラムを実行するには

よろしくお願いいたします。もう少し具体的に言うと、Ａ.xlsというファイルにて、「Test」というマクロプログラムを作りました。これはＡ.xlsのsheet1についてある操作をするものです。同様の操作を行いたいファイルが他にも、Ｂ.xls、Ｃ.xls、Ｄ.xls…とたくさんあります。例えばＢ.xlsについて行うとき、プログラムはＡ.xlsに入っているので、Ａ.xlsとＢ.xlsの両方を開いて、Ｂ.xlsにおいて「ツール：マクロ」から「Ａ.xls！Ｔｅｓｔ」を選んで実行していますが、常にＡ.xlsを開いていなければならないことに疑問を感じます。Ｂ.xlsだけを開いて、Ａ.xlsの中にあるマクロプログラムを実行する手段があるのでしょうか？「アドイン」とかいうものを使えば…という知人がいますが、具体的には知らないそうです。ご存知の方、よろしくお願いします。
プログラム起動

ＰＣ2台ありメーカー、型名、ＯＳ（windowsXP）同じです。ＰＣＡとＢとします。ＡのＣドライブ/Program FilesをＢのＣドライブ/Program Files一旦削除後コピーしたらＢのProgram Filesにあるプログラムは正常動作しますか？
【PHP】正規表現でHTMLを置換したいのですが・・・

HTMLのソースを、正規表現で置換をしてから画面に出力したいのですが、どのような正規表現を記述すればいいのか分からず困っています。。。。下記（befor）の4つのリンクのうち、ファイルの拡張子が、pdf、doc、xlsのファイルだけ「download.php」というPHPのプログラムを通してからダウンロードさせるために、文字列を（after）の様に置換をしたいのですが、なかなかうまくいきません。。。どなたか、ご指導のほど宜しくお願いいたします。（befor） $html = '<a href="/files/aaaa.pdf">あ</a> ' . '<a href="/files/cccc.html">い</a> ' . '<a href="/files/dddd.doc">う</a> ' . '<a href="/files/eeee.xls">え</a> ' ; （after） $html = '<a href=download.php?url=/files/aaaa.pdf>あ</a> ' . '<a href="/files/cccc.html">い</a> ' . '<a href=download.php?url=/files/dddd.doc>う</a> ' . '<a href=download.php?url=/files/eeee.xls>え</a> ' ;
Excel　マクロ　複数ブックの全てのシートに書式だけを自動処理で貼り付けたいのですが

始めての質問です、 ExcelのブックがC:\00\00フォルダに同じ形式で650ほどあります、その全てのブックに１から４のシートがあり、その全てに0.xlsファイルから条件付き書式をコピーして書式だけ全てのシートに貼り付けたいのですが、行き詰ってしまいました。皆様のお答えや自動記録などをコピーして分らないなりに作って見ましたが、下のプログラムでは書式の貼り付けが上手くいかず困っています。始めてのマクロなのでもうどうしたら良いのか分かりません、なにが行けないのか、皆様どうかご教授ください。 Sub test() Windows("0.xls").Activate Sheets(Array("１")).Select Sheets("１", "２", "３", "４")).).Activate Range("A1:AA64").Select Selection.Copy For Each fl In CreateObject("Scripting.FileSystemObject").GetFolder("C:\00\00").Files If Right(fl.Name, 4) = ".xls" Then Workbooks.Open Filename:="C:\00\日報\" & fl.Name: Sheets(Array("１", "２", "３", "４")).Select: Range("A1").Value = "Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False": ActiveWorkbook.Save: ActiveWindow.Close Next End Sub OSはXPSP2でExcel2003を使っています、よろしくお願いします。

謎めいたコードの意味と解読方法についての疑問点

何を示しているのかわかりません

質問者が選んだベストアンサー

関連するQ&A

EXCELをもう一つ立ち上げたい

vba マクロの組み立て不能

エクセルＶＢＡでＰＤＦを開く

AppActivateの使い方

VBEで「名前を付けて保存」する方法

VBA改行について

結合した文字列をファイル名に使えない

VBA初心者です＞＜；教えてください・・・

Aptana 1.5 で Rails プロジェクトが作れません。

vba 呼び込みで１回目のファイルを参照しエラー

VBへの変換の仕方　RS232C送信データとチェックサム

関連付けの変更について

リンクとリンクの間に空白の行が

ＶＢからExcelクローズ検知

マップとアルゴリズム

Shell関数を使って、ファイル名を指定して開くこ

Ｂ.xlsだけを開いて、Ａ.xlsの中にあるマクロプログラムを実行するには

プログラム起動

【PHP】正規表現でHTMLを置換したいのですが・・・

Excel　マクロ　複数ブックの全てのシートに書式だけを自動処理で貼り付けたいのですが

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

謎めいたコードの意味と解読方法についての疑問点

何を示しているのかわかりません

質問者が選んだベストアンサー

関連するQ&A

EXCELをもう一つ立ち上げたい

vba マクロの組み立て不能

エクセルＶＢＡでＰＤＦを開く

AppActivateの使い方

VBEで「名前を付けて保存」する方法

VBA改行について

結合した文字列をファイル名に使えない

VBA初心者です＞＜；教えてください・・・

Aptana 1.5 で Rails プロジェクトが作れません。

vba 呼び込みで１回目のファイルを参照しエラー

VBへの変換の仕方 RS232C送信データとチェックサム

関連付けの変更について

リンクとリンクの間に空白の行が

ＶＢからExcelクローズ検知

マップとアルゴリズム

Shell関数を使って、ファイル名を指定して開くこ

Ｂ.xlsだけを開いて、Ａ.xlsの中にあるマクロプログラムを実行するには

プログラム起動

【PHP】正規表現でHTMLを置換したいのですが・・・

Excel マクロ 複数ブックの全てのシートに書式だけを自動処理で貼り付けたいのですが

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vba 呼び込みで１回目のファイルを参照しエラー　

VBへの変換の仕方　RS232C送信データとチェックサム

Excel　マクロ　複数ブックの全てのシートに書式だけを自動処理で貼り付けたいのですが

カテゴリ
一覧

専門家に質問してみよう
専門家登録