電路程式集，各位先生，不買沒關係，請不要拷貝傳來傳去

欲購買請 mail：
keelungwang@pchome.com.tw

各位先生，不買沒關係，請不要拷貝傳來傳去。

不妨想一下，你能不能開發這樣一個程式，它應該值多少。

售價480元真的很便宜，請手下留情。

就是有這種人 難怪前輩們 就算有資料
也不願意在往外流
480很貴嗎
做管輪的 一個月薪水 近洋6-7萬 遠洋十幾萬
真的連480都拿不出來

王大哥 我看以後這樣
要嗎 設定密碼 這種技術都有
要嗎 售價貴一點
要嗎 真的沒辦法 就不要再販售了

不用錢的 永遠最便宜
書有價值 技術與心意 卻是無價
480
是給創作者的一個鼓勵
鼓勵有為者 可以繼續幫大家服務
難到就是480嗎
如果因此解決一些船上問題
不只是個人飯碗 公司可以省下多少金錢上的損失

我們是台灣船員
不要這麼沒品
如果哪一天 王大哥把他變成4800
或者有一天 他連這種心力 都不願意在分享
遭殃的是誰
我想大家很清楚

謝謝王大哥
請不要洩氣
繼續加油

請把水平拿出來 尊重他人就是尊重自己 請勿觸犯智慧財產權 這幾年新聞或網路都有在討論 大專生教科書影印的問題 謝謝

在程式中埋下抓IP的功能
每當使用者開啟執行程式時就把IP經過網路傳到某個特定信箱去
這樣只要使用就可以循IP去找到使用人
坊間軟體公司不是抓不到使用者 而是數目不大
對個人求償所能要到的金額有限，除非拷的人太過火
要致他於死地時就是不合解，讓他背上違反出版法(公訴罪)
刑期八年以上。
對公司，不管是職員或公司拷貝才是軟體公司要抓的對像
只要員工的電腦中有這項軟體，MS抓到了就求償到你公司倒掉為止

或許有的人會說只要執行程時不使用電腦上網就可以了，
在實際上是可以讓程式經常去測網絡是否能使用，
只要一連上網就可以把IP傳出去。
使用電腦永遠不上網？太難了吧=

請給 願意為輪機同仁 分享個人經驗技術資料 一點鼓勵吧!! 請台灣船員自律 提高素質 才能將對岸的比下去! 王學長 加油!

謝謝各位朋友的鼓勵，大家一起加油吧，
船上是現實的，不會就是比人家短一截，
自立自強，才能和別人平起平坐。

我想程式的東西, 要別人不拷貝是很困難的,
當然希望大家自愛,
但是很難做到的,
你提到傳IP到信箱,
不知下面的程式是否可達到要求,
謝謝
Imports System.Net
Imports System
Public Class Form1
Public Sub ASDF()
Dim mc As New Management.ManagementClass("Win32_NetworkAdapterConfiguration")
Dim nics As Management.ManagementObjectCollection = mc.GetInstances()
For Each nic As Management.ManagementObject In nics
If nic("ipEnabled") = True Then
MsgBox(nic("IPAddress")(0).ToString)
End If
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ASDF()
End Sub
End Class

我們使用的工具不同，語法不一定一樣，有的指令我不了，
但是原理是相同的。可以找大陸的書做參考。

當然你也可以自己開一個PORT，
也不一定要偵測是否傳成功，反正傳就是了
成功了，信箱中自然就會有一封信。

由於傳IP只有幾個位元，因此使用者幾乎感覺不到，
事實上，COOKIE不就是做類似的動作嗎?

請多指教

這是別人的程碼 : uses Winsock; function GetLocalIP: string; var wsaData: TWSAData; addr: TSockAddrIn; Phe: PHostEnt; szHostName: array[0..128] of Char; begin Result := ''; if WSAStartup($101, WSAData) <> 0 then Exit; try if GetHostName(szHostName, 128) <> SOCKET_ERROR then begin Phe := GetHostByName(szHostName); if Assigned(Phe) then begin addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^); Result := inet_ntoa(addr.sin_addr); end; end; finally WSACleanup; end; end;