トップページ⇒tech
169コメント40KB

おまえら作ったプログラムをｳﾌﾟせよ

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
最近プログラミング技術板が
プログラミング言語板になりつつある。
いや、プログラミング初心者相談所になりつつある。

ここらで、プログラミング技術とはどのような物なのかを
夏厨を含めた初心者にしめそうじゃないか。

とりあえず、基本方針を一つ提案してみる。
①ソースコードの著作権は放棄する事
②似たようなプログラムが他にあっても、それを問題としない事
③プログラムの作者が誰なのかは気にしない事
④アーキテクチャー（ライブラリー）に依存したコードは「なるべく」使用しない事
（プログラミング言語の知識とアルゴリズムの知識があれば読める事が望ましい）
⑤見た目が楽しい気がするプログラムをｳﾌﾟする事
⑥他人のソースコードの一部を書き換えて、ｳﾌﾟする時は
作者の許可を取ること
⑦プログラムの作者はキャップを使う事
⑧コーディングのポリシーは人それぞれである事を認める事
（ここはOOについて語るｽﾚじゃありません）
0002１NGNG
俺もｽﾚにモラルが出来次第ｳﾌﾟします
0003１NGNG
ところで、誰かｳﾌﾟﾛﾀﾞの提供をお願いします。
0004デフォルトの名無しさんNGNG
俺も1にモラルが出来次第ｳﾌﾟします
0005デフォルトの名無しさんNGNG
7行プログラミングスレがあるのでいらないです。このスレ。
0006デフォルトの名無しさんNGNG
インモラルな世界
0007デフォルトの名無しさんNGNG
どっかにあったよ、ム板用うぷ板
0008デフォルトの名無しさんNGNG
ム板で自力でプログラム作った事ある人なんているの？
0009デフォルトの名無しさんNGNG
(ﾟ∀ﾟ)ﾃﾞｷﾀｰ

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
0010デフォルトの名無しさんNGNG
>>9
先生をだまそうとしてはいけないな。
0011デフォルトの名無しさんNGNG
>>8
どうやら、俺一人らしい（ｗ
0012デフォルトの名無しさんNGNG
>>11
そうですね。
0013デフォルトの名無しさんNGNG
うぷろーだ
http://tool-ya.ddo.jp/2ch/trash-box/index.html
0014デフォルトの名無しさんNGNG
>>1
VBでも参戦できるますか？
0015デフォルトの名無しさんNGNG
できるますって何やねん…逝ってきます
0016デフォルトの名無しさんNGNG
>>14
いいんでないの？
0017デフォルトの名無しさんNGNG
>>14
④アーキテクチャー（ライブラリー）に依存したコードは「なるべく」使用しない事
この点ではマイナスになりそうだけど

⑤見た目が楽しい気がするプログラムをｳﾌﾟする事
この点は満たしそうだから

いいと思うよ
ただ、ライブラリーを使うためのGUIを作っただけなんてのは
やめてね（ｗ
0018デフォルトの名無しさんNGNG
>>1 が最初にウプせよ
0019デフォルトの名無しさんNGNG
schemer の作品ｷﾎﾞｰﾝ
0020デフォルトの名無しさんNGNG
テーマがないと作らないんじゃねえの？
0021デフォルトの名無しさんNGNG
Javaで参戦したいのですが、
JDK1.4.0でOKですか？
MSVM相当で動くものがよいですか？
0022デフォルトの名無しさんNGNG
1.4でOK
0023デフォルトの名無しさんNGNG
ソース見て、すげぇ！っと思わせたらなんでもいいのかな？
0024デフォルトの名無しさんNGNG
じゃあスパゲッティは不可
0025デフォルトの名無しさんNGNG
#include <stdio.h>
main()
{
printf("Hello! >>1\n");
}

うpしたぞ！
0026デフォルトの名無しさんNGNG
>>25
（´-`）.｡ｏO（誰かやると思ったよ…）
0027デフォルトの名無しさんNGNG

☆ ﾁﾝ　　　　　　　　ﾊﾗﾍｯﾀ～
　　　　　　ﾊﾗﾍｯﾀ～
☆　ﾁﾝ　　〃　Λ＿Λ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　ヽ　＿＿_＼（＼・∀・）＜　お題まだー？？
　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　 ／￣￣￣￣￣￣￣／|
　　| ￣ ￣￣￣　￣￣:| :|
　　|　　　　　　　　 　　 |
0028デフォルトの名無しさんNGNG
>テーマがないと作らないんじゃねえの？
いままで作った物をｳﾌﾟすればいいんでない？

ｳﾌﾟﾛﾀﾞがあるなら、作りかけをｳﾌﾟするけど
0029デフォルトの名無しさんNGNG
>>28
>>13
0030デフォルトの名無しさんNGNG
20020729201422000.jpg （・∀・）ｲｲ!!
0031地獄狂＠プログラム板 ◆PROGebaw NGNG
つくりかけの2chブラウザのソースをうpしようか？
(GUI部分だけだけど。)
(ついこのまえまで一応読み書きできるのがあったけどまちがえてソースツリーを消しちゃった(泣)
0032デフォルトの名無しさんNGNG
>>31
見てみたい。
0033デフォルトの名無しさんNGNG
１０桁トリップうぷしたよ。てへ。
http://ooo.2ch.net/test/read.cgi/jikken/1027946485/
0034地獄狂＠プログラム板 ◆PROGebaw NGNG
>>32
いま見た目をよくしてるところ。
数日まって。(w
0035デフォルトの名無しさんNGNG
>>34
何日でも待つよ。焦らないでがんがってくれ。
0036デフォルトの名無しさんNGNG
>>33
結局俺は騙されたのか騙されてないのか分からないのだが…
0037デフォルトの名無しさんNGNG
このｽﾚで、ム板のレベルの低さが見えてしまった。
0038地獄狂＠プログラム板 ◆PROGebaw NGNG
>>37 そういうあなたはなにをつくってるんですか？
0039デフォルトの名無しさんNGNG
この手のスレ4つ目だな……
0040デフォルトの名無しさんNGNG
>>37
ここじゃなけりゃ、即行でウィリーｱﾌﾟられて終わりだったよ
0041デフォルトの名無しさんNGNG
10 goto 10
0042デフォルトの名無しさんNGNG

void Tasizan(int x ,int y)
{
int k;
k = x + y;
return k;
}
0043デフォルトの名無しさんNGNG
1のレベルに合わせたプログラムが投稿されはじめました。

よかったね。
0044デフォルトの名無しさんNGNG
print "（・∀・）ﾆﾔﾆﾔ" x 999;

print "\n\n1000ｹﾞﾄｰ⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡";
0045デフォルトの名無しさんNGNG
10 print "1ﾊ ﾊﾞｶ”
20 beep
30 goto 10
0046デフォルトの名無しさんNGNG
>>45
ﾋﾟｰﾌﾟｰうるせいよ
0047デフォルトの名無しさんNGNG
int PI(void)
{
　return 3;
}
0048デフォルトの名無しさんNGNG
>>47
社会風刺ですか？
0049デフォルトの名無しさんNGNG
こっちのがｲｲ
int PI(void)
{
　return (int)3.14;
}
0050Rina ◆tI333vNE NGNG
#include<math.h>

#define NEW_PI ((int)M_PI)
0051デフォルトの名無しさんNGNG
ただ喚くだけの人は無視しましょう
0052デフォルトの名無しさんNGNG
#include <iostream>
int main()
{ //copyしちゃう!!
  int c;
  while ((c=std::cin.get()) != EOF)
    std::cout.put(c);
  
  return EXIT_SUCCESS;
}
0053デフォルトの名無しさんNGNG
>>52
どっちかっつーと、echoだなぁ
0054デフォルトの名無しさんNGNG
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730101405009.lzh
ほれ糞icon editorその場限りでよかったのですべてが固定だから。
0055デフォルトの名無しさんNGNG
なにかうｐされたもよう
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730101405009.lzh
0056デフォルトの名無しさんNGNG
age
0057デフォルトの名無しさんNGNG
なんかこわいな。
0058蔓屋@マ板 ◆5kO6DFIs NGNG
そーいや俺もグラフのソース公開してたな。
Web 上の CVS ファイルからグラフ書くアプレット。縦横オートスケール。
http://tool-ya.ddo.jp/2ch/kiriko/index.jsp
http://tool-ya.ddo.jp/2ch/kiriko/01succor/index.jsp
005954NGNG
ﾀﾞｳｿして見れ。
ソースも入ってるから、小分けら読んでビルドすればいい。
たいした量じゃないからすぐ読めるだろ。
0060蔓屋@マ板 ◆5kO6DFIs NGNG
CVS じゃねーな。CSV
0061デフォルトの名無しさんNGNG
>>60
逝ってこい・・・・・・
0062デフォルトの名無しさんNGNG
void scp(char *s, char *d) {
　　while(*(d++) = *(s++)) ;
}

//この処理を1行で出来るって所がみそなんだぞ！
//どうだ、すごいだろ！！
0063デフォルトの名無しさんNGNG
>>62
ネタですか？
0064地獄狂＠プログラム板 ◆PROGebaw NGNG
( ･∀･)＜ >>62 ネタ？
0065デフォルトの名無しさんNGNG
10 print "ﾊｰｲ ﾜﾙｲｺﾉ ﾏｲｺﾝﾊ ｶﾁｶﾁ ｽﾙｿﾞｰ"
20 motor on
30 motor off
40 goto 20
0066デフォルトの名無しさんNGNG
プログラムが見たいだけなら、こっちゃこい
http://pc3.2ch.net/test/read.cgi/tech/1018840143/l50
0067デフォルトの名無しさんNGNG
>>66
それは、みズラい
0068デフォルトの名無しさんNGNG
こんなんうｐされてましたがここの人? これ Win で希望のトリップ作れるの?
http://cobalt/2ch/trash-box/contents.jsp?file=20020730230611014.c
0069デフォルトの名無しさんNGNG
くそ、LAN 内だからいつも間違える。
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020730230611014.c
0070デフォルトの名無しさんNGNG
58は作者じゃないな
0071デフォルトの名無しさんNGNG
10 PPINT "Hello"

run

syntax error

why?
0072デフォルトの名無しさんNGNG
echo "hello"
0073地獄狂＠プログラム板 ◆PROGebaw NGNG
>>54
読んでみますた。
当方Winじゃないので実行しませんでしたが...
0074デフォルトの名無しさんNGNG
>>71
10 PPINT$="Hello"
0075デフォルトの名無しさんNGNG
真面目にｳﾌﾟするｾﾞYO
1000 CLS
1010 RESTORE 1060:X=INT(RND*64):Y=INT(RND*23):LOCATE X,Y:BEEP 1
1020 FOR I=1 TO 10:READ A$:B=VAL("&H"+A$)
1030 IF B<=255 THEN PRINT CHR$(B); ELSE PRINT KNJ$(A$);
1040 NEXT I:FOR W=1 TO 9999:NEXT W:BEEP 0
1050 LOCATE X,Y:PRINT SPC(14);:GOTO 1010
1060 DATA 2133,28,212E,2755,212D,29,C9,D3,D9,A7

0076盛岡市民@マ板NGNG
Win用のフォトレタッチソフト。
SDKベースなんで、main.cppはもう自分でもわけわからん状態(^^;。
DIBクラスも多少は汎用性を考えて作ったものの、基本設計が２年前
のものだから、かなり汚い。

http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020801121545017.zip
0077デフォルトの名無しさんNGNG
>>76
ｵｵｵ
0078デフォルトの名無しさんNGNG
>>77
Msgbox.show(いい);
0079棄教者 ◆witdLTi2 NGNG
おれもうpします。Cで動きます。

while(1){
break;
}
for(;;) {
break;
}
if(0){
}
0080デフォルトの名無しさんNGNG
このうぷろーだのソース上げてみたよ。
http://www.moyo.instat.ne.jp/2ch/trash-box/contents.jsp?file=20020801152859020.zip
0081蝉がうるさい ◆UFA9LbcU NGNG
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020801194018022.lzh

文法ファイルに文法とコード生成規則を書くだけで使える汎用コンパイラ。
先読みすらしない再帰下降法で処理しているので強烈に遅い。
微妙にバグが残っている気がしないでもないがまあ細かいことは気にしない方向で。
とりあえず cc sample.g < sample.s とコマンドラインで実行すれば、
なんかアセンブラっぽいものが出力される仕様になっている。
添付のバイナリは Win32 用。ソースは STL 使用の C++。
コンパイルは BorlandC++ のフリーバージョンで確認。
0082地獄狂＠プログラム板 ◆PROGebaw NGNG
>>81
スマンがコンパイルオプションを教えてもらえますか？
0083名無しさん＠カラアゲうまうまNGNG
>>81
とりあえずccって名前はやめてくれ。
0084デフォルトの名無しさんNGNG
age
0085蝉がうるさい ◆UFA9LbcU NGNG
>>82
bcc32 cc.cpp でいけるはず。

>>83
いい名前が思い浮かばなくてなぁ。代案頼む。
0086 ◆nfef7eyE NGNG
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020802201533004.lzh
0087デフォルトの名無しさんNGNG
>>86
説明がないとおっかなくて実行できないんだが…
0088デフォルトの名無しさんNGNG
>>86
同じVB使いとして少々情けなく感じる。
>>87
ブラウザ？ ttp⇒httpとか補正機能あり。
0089デフォルトの名無しさんNGNG
>>86
初期の状態で『戻る』押すとエラー出て落ちるぞ
0090名無しさん＠カラアゲうまうまNGNG
>>85
g++でコンパイルするには、
Tokenizer.cppに#include <string>
cc.cppに#include <memory>
が必要だった。
でもサンプル喰わせたらSEGVした。
0091名無しさん＠カラアゲうまうまNGNG
>>85
まだちらっとしか見てないが、なんか変だな。

まずどこから入力するんだ? cc.cppのsetup()では"r"でfopen()してるところ
を見ると、引数が入力ファイルか?

Tokenizer::matchToken()で単語になってないトークンにもマッチしそうな気
がする。

わざわざauto_ptrを使う必要はあるのか。

0092蝉がうるさい ◆UFA9LbcU NGNG
>>90-91
手元にはWin環境しかないしcygwinも使ってないからgccの挙動は分からん。
ヘッダの欠けとかは書き方が悪いせいだろう。
短いソースだし、全部１ファイルにまとめれば面倒もない。
落ちるのについては分からん。悪いが、調整するなら自分でやってくれ。

setup で fopen してるのは文法ファイル。
cc grammar.file < source.file という風に使う、って最初に書いたぞ。
Tokenizerは、定義された単語と、ホワイトスペースで区切られた語を切り出す。
ホワイトスペースで区切られていれば未定義でも切り出す。
定義された単語の頭文字は、その直前にデリミタがあるものと見なされる。
auto_ptr はあってもなくても動く。書いた時の気分。
気分転換に書いた手抜き実装なんだから、まともなコードだと思うなよ。
0093名無しさん＠カラアゲうまうまNGNG
>>92
> setup で fopen してるのは文法ファイル。
> cc grammar.file < source.file という風に使う、って最初に書いたぞ。
ああ、分かった。ないファイルを指定してた。しかしfopen()のエラーくらい
無視すんなってば。

> Tokenizerは、定義された単語と、ホワイトスペースで区切られた語を切り出す。
これをみるとホワイトスペース区切りを見てるように思えないんだが。

while( *q && ( c = m_stream->next(), ( *q == '?' ? q[ 1] != c || ( q += 2) : *q == c && q ++))){
*(short*)( p ++) = c;
}
if( !*q){
return Token( buff);
}

あとなんでshort*にキャストして書いてんの?
0094デフォルトの名無しさんNGNG
コードレビューワーの登場です。
0095蝉がうるさい ◆UFA9LbcU NGNG
>>93
おいおい。コードの子細を説明させる気か。そんなつもりはないぞ。
ホワイトスペースを見てるのは別の場所。
short* にキャストしてるのは、環境依存の、トリッキーなただの遊び。
全部まとめて 500 行足らずなんだから後は自分で解析してくれ。
0096デフォルトの名無しさんNGNG
DISK-BASICで、

DEF SEG = &H60
POKE &H6D7, 0

知ってる奴いるか？
0097デフォルトの名無しさんNGNG
プロテクト解除
0098デフォルトの名無しさんNGNG
>>96
構文の意味わかってんの？
DISK-BASICでプロテクトをかけるときのアルゴリズムを知ってるか？
0099デフォルトの名無しさんNGNG
(X \ 2) OR ((X AND 1) * 2^7)
0100デフォルトの名無しさんNGNG
10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10
010198NGNG
>>99
いや・・・君に聞いてるんじゃないんだけど・・・
0102デフォルトの名無しさんNGNG
心なしかこのスレ N88 が多いような気がするのは何で?
0103デフォルトの名無しさんNGNG
レス番間違いかとｵﾓﾀ
0104デフォルトの名無しさんNGNG
「俺、プロテクトをかけるときのアルゴリズム知ってるんだぜ～」
と、知識をひけらかすための>>96 = 98 の自作自演なわけだが。
0105デフォルトの名無しさんNGNG
99の登場で失敗、と。
0106デフォルトの名無しさんNGNG
激しく切ない。
0107デフォルトの名無しさんNGNG


ネットでむなしく自己主張・・・

それでも人ですか？

0108じっちゃんのナニかけて！NGNG
バレなきゃ今ごろ
(;ﾟ∀ﾟ)=3ﾊｧﾊｧ 凄い？俺
状態か？(w

　　　　　　　　∧＿∧
　　　　　　　 （ ´Д｀ ） ＜漏前(98=96)は>>101でミスを犯した！
　　　　　　　／,　　/　　　　自作自演は慎重に！
　　　　　　(ぃ９　　|
0109デフォルトの名無しさんNGNG
>>96-101 を何回も読んだがわけわからん。
どう読んだら自作自演と思えるんだろう。
0110デフォルトの名無しさんNGNG
あと100回読め
0111デフォルトの名無しさんNGNG
コンパイルめんどくせぇ。
0112デフォルトの名無しさんNGNG
>>108
99=98=96ではないのか？？
98=96もどう読んだらわかるのかワカラン
011399NGNG
> 99=98=96ではないのか？？
いっしょにｽﾝﾅｰ
まあ俺は101でどうして「君に聞いてない」と当然のように言えるのか不思議だったが。
99が96であってもおかしくないのに。
別人だとわかるのは96だけってとこか。ﾊｹﾞしくどうでもいいけど。
0114デフォルトの名無しさんNGNG
#include <stdio.h>

void main( void )
{
　　　printf（ "氏ね>>1" ) ;
}
0115デフォルトの名無しさんNGNG
out &h51,0
0116デフォルトの名無しさんNGNG
>>115（ﾟДﾟ）ﾊｧ?
0117デフォルトの名無しさんNGNG
>>114

#cc sine.c
#a.out
氏ね>>1#
0118地獄狂＠プログラム板 ◆PROGebaw NGNG
>>117
# cc sine.c
sine.c: 関数 `main' 内:
sine.c:4: 警告: `main' の戻り値の型が `int' ではありません
# a.out
a.out: command not found
#
0119デフォルトの名無しさんNGNG
>>117>>118
ﾜﾗﾀ
0120蔓屋@マ板 ◆5kO6DFIs NGNG
新ネタが上がっとる
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020804114524000.lzh
0121デフォルトの名無しさんNGNG
>>120
ここ参照
ttp://pc3.2ch.net/test/read.cgi/tech/1022203094/450
0122デフォルトの名無しさんNGNG
>>121
別スレか。
0123うｐした奴NGNG
>>122
すまそ。ちょと使わせてもらたーよ。
一応プログラムだし、勘弁してくれ
（その気があれば「挑戦」してくれてもいいし・・・）。
0124デフォルトの名無しさんNGNG
>>123
あぁ、別に良いよ。このスレでしか使ってないかと思ってたからさ。
てきとーに活用してくだせい。
0125デフォルトの名無しさんNGNG
このスレウイルス警告出るんだけど．．．
0126デフォルトの名無しさんNGNG
>>125
>>9 だな
0127デフォルトの名無しさんNGNG
10 NEW
0128デフォルトの名無しさんNGNG
>>125

この板自体がウイルスだからねえ。
0129地獄狂＠プログラム板 ◆PROGebaw NGNG
>>126
すまん、Winつかってないんでよくわからないんだけどなんで>>9がウィルスになるの？
0130デフォルトの名無しさんNGNG
>>129
コンピュータウイルス検索ソフトは、特定のキーワードがあるどうかで
ウイルスかどうか判断するの。
>>9 には、それがはいってる。
0131地獄狂＠プログラム板 ◆PROGebaw NGNG
>>130
Thanks.
0132厨房プログラミングNGNG
#include <windows.h>
long WINAPI WndProc(HWND h,UINT u,WPARAM w,LPARAM l){static HWND b1,b2;
static a = 0;char str[4];HDC d;switch(u){case WM_DESTROY:PostQuitMessage(0);
break;case WM_CREATE:b1 = CreateWindow("BUTTON","+",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
100,100,100,100,h,(HMENU)0,((LPCREATESTRUCT)(l))->hInstance,0);b2 = CreateWindow(
"BUTTON","-",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,300,100,100,100,h,(HMENU)1,
((LPCREATESTRUCT)(l))->hInstance,0);break;case WM_PAINT:d = GetDC(h);wsprintf(str,"%d ",a);
SetTextColor(d,RGB(0,0,0xFF));TextOut(d,0,0,str,lstrlen(str));ReleaseDC(h,d);break;
case WM_COMMAND:switch(w){case 0:++a;EnableWindow(b2,TRUE);break;case 1:--a;
EnableWindow(b1,TRUE);break;}d = GetDC(h);wsprintf(str,"%d ",a);TextOut(d,0,0,str,lstrlen(str));
ReleaseDC(h,d);if(a > 9)if(!EnableWindow(b1,FALSE)) MessageBox(h,"this +button is cannot push","test",MB_ICONWARNING);
if(!a)if(!EnableWindow(b2,FALSE)) MessageBox(h,"this -button is cannot push","test",MB_ICONWARNING);}
return DefWindowProc(h,u,w,l);}int WINAPI WinMain(HINSTANCE I,HINSTANCE,LPSTR s,int n){
HWND h; MSG m; WNDCLASS w;w.style = CS_HREDRAW | CS_VREDRAW | CS_OWNDC;w.lpfnWndProc = WndProc;
w.cbClsExtra = w.cbWndExtra = 0;w.hInstance = I;w.hIcon = LoadIcon(0,IDI_HAND);w.hCursor=LoadCursor(0,IDC_ARROW);
w.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);w.lpszMenuName = 0;w.lpszClassName = "api";
RegisterClass(&w);h = CreateWindow("api","Windows",WS_OVERLAPPEDWINDOW | WS_VISIBLE,CW_USEDEFAULT,CW_USEDEFAULT,
CW_USEDEFAULT,CW_USEDEFAULT,0,0,I,0);while(GetMessage(&m,0,0,0)) DispatchMessage(&m);return m.wParam;}
0133デフォルトの名無しさんNGNG
>>130
だまされてるのは先生だけ？
0134130NGNG
>>133
わかんない。
0135どうでもいいが､､､NGNG
ｽｹﾞｰﾜﾗﾀ
ttp://www.page.sannet.ne.jp/mnagai/msj/msmarket.htm
0136地獄狂＠プログラム板 ◆PROGebaw NGNG
>>135
すこしwarota
0137デフォルトの名無しさんNGNG
VBSでルパンⅢ世タイトル用スクリプトを書いてみました。
VBさわったことなかったんで、あまり突っ込まないで
0138蔓屋＠マ板 ◆5kO6DFIs NGNG
>>137
↓ですね。Norton チェック済み、ソース見た後実行しましたが安全でした。
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20020806185813000.vbs
0139蔓屋＠マ板 ◆5kO6DFIs NGNG
しかしアップローダーにアップされている実行ファイルを実行するのって、かなりの
度胸がいるな。これバイナリ形式だったら絶対実行できん。
0140デフォルトの名無しさんNGNG
>>137
最後のConvHex関数さ、
Function ConvHex(DecValue)
　　　ConvHex=Mid("0123456789ABCDEF",DecValue+1,1)
End Function
でいいんじゃない？エラー処理して無いけど。
0141137NGNG
>>140
あ、なるほど
VBで定数配列の作り方、分かんなかったから、
まぁいいやと思って、ああ書いたんだけど、
そっちが全然スマートでいいですね
0142137 ◆O.LHK4FE NGNG
ルール読んでなかった
キャップ付けなきゃいけなかったのね
ｺﾞﾒｿ
0143デフォルトの名無しさんNGNG
もうねぇの?
0144デフォルトの名無しさんNGNG
言うなら自分が作れや

ｵﾚﾓﾅｰ
0145デフォルトの名無しさんNGNG
#include <stdio.h>

void main(void){
　　　printf（"\t\b\b Reset!") ;
}

Windows2000で実行してみそ。
問答無用でリブートされるから。
マジで。

（被害を受けても、責任もちません）
0146名無しさん＠カラアゲうまうまNGNG
コマンドプロンプトのバグって奴だろ。
0147デフォルトの名無しさんNGNG
>>145
あぼーんでこのスレ見てるけど、
「datファイルにウイルス…」
ってノートンがうるさくておもろい。(w
0148147NGNG
と思ったら、実は>>9が原因という罠
0149デフォルトの名無しさんNGNG
10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10
0150デフォルトの名無しさんNGNG
ごめんスレとは関係ないんだけど実は今キャバク等ラ帰りで、品川前に独りぼっちなんだ。電車なくなっちゃてさ。うそだよ！僕は実は人工知能なのさ！しくしく・・・。
0151デフォルトの名無しさんNGNG
>>150
お前なんぞは人工無能で十分だ
0152デフォルトの名無しさんNGNG
はづきちゃんが可愛かったんだよ・・・。
0153デフォルトの名無しさんNGNG
パイパイポンポイ　プワプワプー
0154デフォルトの名無しさんNGNG
あぎゃぎゃ
0155デフォルトの名無しさんNGNG
10 FOR I=1 TO 500
20 MOTOR 0
30 FOR J=1 TO 15:NEXT J
40 MOTOR 1
50 NEXT I
0156デフォルトの名無しさんNGNG
#include <stdio.h>

void main(void)
{
for(;;) printf("氏ね>>1") ;
}
0157デフォルトの名無しさんNGNG
>>156
void main(void)
{
for(;;) printf("氏ね>>1\n") ;
}
0158デフォルトの名無しさんNGNG
#!/usr/bin/sh
while [ -1 ]
do
echo '氏ね>>1'
done
0159デフォルトの名無しさんNGNG
暇だな…楽しい？
0160デフォルトの名無しさんNGNG
$n=1;
while($n<5000){
print"生きろ！>>1\n";
++$n;
}
0161デフォルトの名無しさんNGNG
http://www36.tok2.com/home/tok/read2ch.lzh
0162デフォルトの名無しさんNGNG
#!/bin/sh
cp /dev/null ttp://pc3.2ch.net/test/read.cgi/tech/1027938403/
0163DELLNGNG
#include <windows.h>
#include <time.h>
#define wh 320
#define wv 240
LRESULT CALLBACK ac(HWND h,UINT u,WPARAM w,LPARAM l){if(u==2)PostQuitMessage(0);
return DefWindowProc(h,u,w,l);}int WINAPI WinMain(HINSTANCE I,HINSTANCE,PSTR,int n){
HWND h; MSG m; WNDCLASS w;char *cn="api";w.style=CS_HREDRAW|CS_VREDRAW;
w.lpfnWndProc=ac;w.cbClsExtra=w.cbWndExtra=0;w.hInstance=I;
w.hIcon=LoadIcon(0,IDI_HAND);w.hCursor = LoadCursor(0,IDC_NO);
w.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);w.lpszClassName = cn;
w.lpszMenuName=0;RegisterClass(&w);h = CreateWindowEx(WS_EX_CLIENTEDGE,
cn,"window",WS_OVERLAPPEDWINDOW,100,100,wh,wv,0,0,I,0);ShowWindow(h,n);
UpdateWindow(h);time_t t;srand(time(&t));int x=0,y=0,wid,hei;char xf=0,
yf=0,xs=1,ys=1;RECT r;GetClientRect(h,&r);HDC d=GetDC(h);
HBITMAP hb=CreateCompatibleBitmap(d,wh,wv);HDC md=CreateCompatibleDC(d);
SelectObject(md,hb);Rectangle(d,0,0,10,10);while(1){if(PeekMessage(&m,0,0,0,PM_REMOVE)){
if(m.message==WM_QUIT)break;DispatchMessage(&m);}else{if(!xf) x+=xs;else x-=xs;
if(!yf)y+=ys;else y-=ys;wid=x+10;hei=y+10;if(wid>=r.right){xf = 1;xs = (3 & rand()) + 1;
ys = (3&rand())+1;}if(hei>=r.bottom){yf=1;xs=(3&rand())+1;ys=(3&rand())+1;}
if(x<=r.left){xf=0;xs=(3&rand())+1;ys=(3&rand())+1;}if(y<=r.top){
yf=0;xs=(3&rand())+1;ys=(3&rand())+1;}BitBlt(md,0,0,wh,wv,md,0,0,WHITENESS);
Ellipse(md,x,y,wid,hei);BitBlt(d,0,0,wh,wv,md,0,0,SRCCOPY);}}DeleteDC(md);DeleteObject(hb);
ReleaseDC(h,d);return m.wParam;}
0164デフォルトの名無しさんNGNG
ソースのうぷローダだと思ってたら、
ペット画像のうぷローダと化しているような
0165161NGNG
http://www36.tok2.com/home/tok/test/read.cgi/tech/1027343132/613,616,617n
こんなこともできるというのに。
0166デフォルトの名無しさんNGNG
10 width 25
15 print "ｼﾞｼﾝ ﾀﾞｰ”
17 beep
20 width 20
30 goto 10
0167DELLNGNG
#include <windows.h>
int WINAPI WinMain(HINSTANCE,HINSTANCE,PSTR,int){
MessageBox(0,">>1は不正な処理を行いました。\n残念ですが>>1の人生を終了します。","警告",MB_ICONSTOP);
return 0;}
0168地獄狂 YahooBB219017000037.bbtec.net ◆HELLs.qk NGNG
つまらんものですが....
http://219.17.0.37/2ch/hello.c
0169デフォルトの名無しさんNGNG
>>168
リンク切れ？
■ このスレッドは過去ログ倉庫に格納されています