Service1.vbをDDNSPing.vbにリネーム 構成ファイルにapp.configを追加 Shared Sub Main()関数のServiceToRunの{New Service1}を{New DDNSPing}に変更する ここまでで（特に何もしてないけど）一度ビルドして手順が正しいことを確認する。 起動時に設定を読む…

Dim d1 As Date = Now Dim d2 As Date = DateAdd(DateInterval.Minute, 60 / 4, d1) Dim d3 As Date = DateAdd(DateInterval.Minute, 60 / 1, d1) Const DATEFORMAT = "yyyy/MM/dd hh:mm:ss" Console.WriteLine("現 在の時刻は{0}", Format(d1, DATEFORMAT))…

今流行のWebサービスではなくて、NTサービスのことです。 自分で欲しいと思ったものは作ってしまおう企画で とりあえずDynamicDNSのIPアドレス更新用クライアントを作成しようと思います。 ひな形を作る ファイル＞新規作成＞プロジェクト プロジェクト名に…

これをつかってDDNSクライアントを自作してみようと思います。 誰か使う人（被験者ともいう。）居ますか？ 実装する機能は 設定の読み出し（レジストリ・別件で実験済み） タイマ割り込み（これは実験済み） http/httpsへのGET/POST（別件で実験済み） 実行…

Function ToAnchor(ByVal text As String) As String 'todo:パターン（[\w]以降）を見直す。"/?+&._="等が入るのでそこまで判定 Dim pattern As String = "ｈｔｔｐ://[\w.]+" Dim matchs As MatchCollection 'URLはこんな感じで。 Const htmltext As String…

ネイティブコンパイルが起動時にかかるから。 ネィティブコンパイルを明示的に実行するなら、 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cptools/html/cpgrfnativeimagegeneratorngenexe.asp をつかえばよい。

アプリケーションで連携しちゃう場合は是非ご利用ください。 マイクロソフト サポート技術情報 - 832679 (snip) 'このクラスではVB.NETを利用して直接FTPサイトを操作する機能を提供しています。 '以下のFTPコマンドをサポートしています: ' - ファイルのア…

vbKeyReturn(Value=13)が System.Windows.Forms.Keys.Return になった。 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/Vbcon/html/vbgrfkeycodeconstantchangesinvisualbasicnet.asp

以下のコードを参考にVB.NETに移植させていただきました。 Create a valid RSS 2.0 document using XmlTextWriter By Daniel Bright http://www.codeproject.com/aspnet/RSSviaXmlTextWriter.asp <%@ Page Language="VB" EnableViewState="false" Debug="tru…

Private Sub Button040521_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim info As ProcessStartInfo = New ProcessStartInfo info.FileName = "notepad.exe" info.Arguments = "c:\hoge.txt" info.Redire…

Google Web サービスを参照するGoogle Web サービスを参照する手順は次のとおりです。１．新しい Windows フォーム プロジェクトを作成します。 ２．プロジェクトを右クリックします。 ３．[Web 参照の追加] をクリックします。 注 : [Web 参照の追加] オプ…

簡単なサンプル. 111-222 という値を 222-111という形に入れ替えて返す。VB6時代のReplaceではできなかったと思う。 VBScriptにもRegexあった気がするが...忘れました。 Imports System.Text.RegularExpressions Sub Main() Console.WriteLine(swaptext("200…

[global.asax] Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) Session("LastErrorMessage") = "Global: " & Server.GetLastError.Message Server.Transfer("500.aspx") End Sub グローバル エラー ハンドラは、Web.config ファイル…

'ネットワーク関連の処理を行います Public NotInheritable Class Net 'コンピュータを共有資源に接続します。 Public Function Connect(ByVal networkpath, ByVal user, ByVal pass) Dim ShellCommand As String = "net use [networkpath] [pass] /USER:[us…

Sub writelog(ByVal result) Dim fileno As Integer = 1 Try FileOpen(fileno, "D:\Login.txt", OpenMode.Append) PrintLine(fileno, Now, Me.txtID.Text, Session("class"), result) FileClose(fileno) Catch ex As Exception End Try End Sub これでいいみ…

Visual Basic .NET を使うと、はじめは Visual Basic 6.0 との違いに驚くはずです。フォームにコントロールを貼り付けるとそれによってコードが生成されたり、フォームに Class というキーワードが付いていたり、そもそも、VB フォームではなく Windows フォ…

isbn:4816334882 割とはまりやすい部分をスクリーンショットを交えて説明。 VS.NET2003を使って開発する場合いいかも 概論からセットアップ手順、ADO,XML,コントロール,セキュリティ,例外処理などを詳しく説明 VS.NET2003が手元にあるならお勧めの一冊。

1: Sub Main() 2: Dim StringTool As New MyClass.Str 3: 4: Console.WriteLine(StringTool.MidB("string", 2, 2).ToString) 5: Console.WriteLine(StringTool.LenB("てすとですが。").ToString) 6: Console.WriteLine("finished") 7: 8: End Sub Newが抜け…

バグ対してください。 自作クラスを呼び出す以下のようなコーディングがあります。 1: Sub Main() 2: Dim StringTool As MyClass.Str 3: 4: Console.WriteLine(StringTool.MidB("string", 2, 2).ToString) 5: Console.WriteLine(StringTool.LenB("てすとです…

めも。 IFDEF.vb (VB.NET/VB7.1) #Const mode = "DEV" 'DEV=開発 'ST1=システムテスト端末 'REL=本番 #If mode = "DEV" Then Const DBSV As String = "DEV-DB" #ElseIf mode = "ST1" Then Const DBSV As String = "ST1-DB" #ElseIf mode = "REL" Then Const …

Microsoft.Win32.Registry Visual Basic .NET でプログラムを作成するときに、 Visual Basic .NET が提供している関数または .NET Framework のレジストリ クラスのいずれかを使用してレジストリにアクセスすることを選択できます。ほとんどの場合に、 Visua…

配布したアプリで帳票が出ない。 カスタマサポートWebより。 これかー http://japan.crystaldecisions.com/support/crystalreports9/faq_dotnet.asp#net_keycode_error

regwiz.msmというファイルが必要なようだ。 マシン内を検索するが見つからない。 ？と思い*.msmで再検索を行った。 Crystal_Regwiz2003.msmなるものが見つかった。このファイル名でさらに検索。 google:Crystal_Regwiz2003.msm →http://www.atmarkit.co.jp/b…

配布したアプリで帳票が出ない。調査開始。 google:Cannot find Keycodev2.dll, or invalid keycode

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconcustomnumericformatstrings.asp データグリッドに対してストアドプロシジャから値を取得。 ある列に対して.Expressionを使用して比率を求める。 パ…

★この記事がだいぶ参照されている模様。 ちゃんとリライトするかも。 (2003/03/04追記) 現象 以下のエラーが発生してメールが送れませんでした。 メールサーバが切り替わるまでは動いていたのに... 「'CDO.Message' オブジェクトにアクセスできませんでした…

WindowsフォームからDB更新し、Webから内容を確認する場合使えるかも。 [HOW TO] Visual Basic .NET プログラムによってデフォルトのインターネット ブラウザを起動する方法 mskb:305705

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/valrfandalsooperator.asp 解説 コンパイルされたコードで、1 つの式の結果によってはもう 1 つの式の評価を 省略できる場合、そこで使用される論理演算子…

Function fnLenB(ByVal arg1) As Integer 'Require:Imports System.Text Try Dim enc As Encoding '@System.Text Dim ReturnInt As Integer enc = enc.GetEncoding("Shift_JIS") ReturnInt = enc.GetByteCount(arg1) Return ReturnInt Catch ex As Exception…