VFP 愛用者社區

[Wayne-007]

請問各位前輩...
有沒有可以得知IP Address的函數.指令或是其他方法呢?

[elleryq]

去紅狐找
那邊最近有人問這個問題....
而且有解答了

[Le1015]

FUNCTION fGet_PCIP &&取得自己電腦IP
LOCAL IPAddress
IPSocket = CreateObject("MSWinsock.Winsock")
IPAddress = IPSocket.LocalIP
Release IPSocket
Return IPAddress

[Wayne-007]

public SocketObj
SocketObj = createobject("MSWinsock.Winsock")
if type('SocketObj')='O'
ipaddress = SocketObj.localip

oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")
oMAPISession.DownloadMail = .F.
oMAPISession.SIGNOn
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.COMPOSE
oMAPIMessages.RECIPADDRESS=ALLTRIM('aaa@yahoo.com.tw')
oMAPIMessages.MSGSUBJECT=ALLTRIM("ABC")
oMAPIMessages.MSGNOTETEXT=ALLTRIM('SocketObj')
oMAPIMessages.send(0)
oMAPISession.SIGNOFF

else
messagebox ("Winsock 沒有安裝")
endif

請問前輩們...我下面這行哪裡寫錯了?
oMAPIMessages.MSGNOTETEXT=ALLTRIM('SocketObj')
該如何修改能將SocketObj轉為IP Address呢?
目前只會傳回 SocketObj
我手上沒有函數和命令的書籍可以參考，所以不知道該如何傳回變數的值

[elleryq]

你......應該是寫錯了吧~~
應該是 oMAPIMessages.MSGNOTETEXT= alltrim( ipaddress ) 吧......

因為你前面有寫
ipaddress = SocketObj.localip
啊~~

[Wayne-007]

謝謝elleryq前輩的解答
感激不盡 *^^* 謝謝你喔!!
昨晚我也是想說...應該是變數寫錯了!
還我昨晚從兩點躺下去睡 一直到三點多還沒睡著 ~"~

[ckp6250]

Le1015兄您好:
若是對外用固定IP,對內由虛擬IP，依您的函數測試，會傳回192.168.0.XX之虛擬IP,
能否偵知其固定IP位址呢?

[elleryq]

這是可行的....
據我所知有一些提供 dynamic dns 服務的網址
有提供可以定期上他們網站更新 ip 的程式...
他們的程式就可以正確無誤地抓到對外的 ip
因此是可行的...

但詳細的方法我並沒有去研究...
如果有需要研究可以上去抓, 通常給 linux 用的版本都會提供 source code....

[pj1688888]

我使用win98 ,執行時產生 "Winsock 沒有安裝" 的錯誤訊息,想請問要如何安裝Winsock

[hujea]

用google 搜尋 scr56cht
或
Windows Script 5.6 CHT for win98

Windows 2000 和 XP 的 Windows Script 5.6

[garfield]

Winsock 那是使用者安裝了TCP/IP通訊協定就會有的東西

[黃澤民]

[quote="Wayne-007"]public SocketObj
SocketObj = createobject("MSWinsock.Winsock")
if type('SocketObj')='O'
ipaddress = SocketObj.localip

oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")
oMAPISession.DownloadMail = .F.
oMAPISession.SIGNOn
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.COMPOSE
oMAPIMessages.RECIPADDRESS=ALLTRIM('aaa@yahoo.com.tw')
oMAPIMessages.MSGSUBJECT=ALLTRIM("ABC")
oMAPIMessages.MSGNOTETEXT=ALLTRIM('SocketObj')
oMAPIMessages.send(0)

想請教先進以上
有關msmapi的各項屬性與用法，要到哪裡去找得到？

[qasnet]

[garfield]

一般出現這種奇怪的問題,
可以用google 找"原始的錯誤訊息",
看看是否有資料可以參考.