ＳＱＬの窓
<<前の6件  1 2 3 4 5..  次の6件>>

2023年01月07日


#ZOOM #アバター #ベータ版

正月の更新で英語のリリース内容にアバターの文字があったので試したら、ほぼキャラクタ着せ替えだった。

どうみてもあちらの TOON 系なので、AI 絡んで、日本系やリアル系に進化して欲しい 

画像アップロードが面倒な時代になって来たので、Twitter を使う。
イーロン・マスク、頑張ってね。
【WEBサービスの最新記事】
posted by lightbox at 2023-01-07 15:02 | WEBサービス | このブログの読者になる | 更新情報をチェックする

2022年12月31日


VScode でダークテーマでキャプチャした画像を印刷しないようにしましょう。トナーがもったいないです。

現場では当たり前の事ですが、この発想に及ばないのは実際の開発現場でのプリンタの管理が想像以上にこのようなお金の問題以外にもたくさんあるからです。
posted by lightbox at 2022-12-31 17:22 | システム開発 | このブログの読者になる | 更新情報をチェックする

2022年12月29日


Visual Studio Code で行末のスペースを消去する

保存時に実行したければ、"files.trimTrailingWhitespace": true です。自動保存にすると、ソース変更すれば実行されます。
posted by lightbox at 2022-12-29 10:09 | Microsoft | このブログの読者になる | 更新情報をチェックする

Microsoft Edge を終了してもメモリに残るのを避ける

何かの都合( IEモードとか ) でたまに開くだけなのに、メモリを無駄に消費しますね...
posted by lightbox at 2022-12-29 09:39 | Microsoft | このブログの読者になる | 更新情報をチェックする

2022年11月17日


VBScript / JScript: Windows標準のオブジェクト( CDO.Message ) と ロリポップメールを使ってメール送信 

▼ VBScript


▼ JScript




コマンドプロンプトから、以下のようにしてテストしています

cscript mail.vbs
cscript mail.js

ssl を使用( ポート 465 )するので、smtpusessl が true になっています。
mail.vbs

' ***********************************************************
' 使用するパラメータ
' ***********************************************************
strFrom = "わたしです <ロリポップメールアドレス>"

strTo = "あなたです <送り先メールアドレス>"

strServer = "smtp.lolipop.jp"

nPort = 465
strUser = "ロリポップメールアドレス"
strPass = "パスワード"

' ***********************************************************
' オブジェクト
' ***********************************************************
Set Cdo = WScript.CreateObject("CDO.Message")

' ***********************************************************
' 自分のアドレスと宛先
' ***********************************************************
Cdo.From = strFrom
Cdo.To = strTo

' ***********************************************************
' 件名と本文
' ***********************************************************
Cdo.Subject	= "件名の文字列 / " & Now()
Cdo.Textbody = "テキスト本文" & vbCrLf & "改行は vbCrLf"

' ***********************************************************
' CC BCC HTMLメール( CC BCC はどちらか片方  )
' ※ 両方指定すると CC
' ***********************************************************
Cdo.Cc = "メールアドレス1,メールアドレス2"
'Cdo.Bcc = "メールアドレス3,メールアドレス4"
Cdo.Htmlbody = "<img src=""https://winofsql.jp/image/winofsql.png"">"

' ***********************************************************
' ファイル添付あり
' ***********************************************************
Cdo.AddAttachment( "C:\Users\sworc\Pictures\0152-ac.jpg" )
Cdo.AddAttachment( "C:\Users\sworc\Pictures\ai\2022-08-24-1.png" )

' ***********************************************************
' 設定
' ***********************************************************
Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = nPort
Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true

Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Cdo.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
Cdo.Configuration.Fields.Item _ 
 ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass

' ***********************************************************
' 設定の反映
' ***********************************************************
Cdo.Configuration.Fields.Update

' ***********************************************************
' 送信
' ***********************************************************
on error resume next
Cdo.Send
if Err.Number <> 0 then
	strMessage = Err.Description
else
	strMessage = "送信が完了しました"
end if
on error goto 0

Wscript.Echo strMessage






mail.js

// ***********************************************************
// 使用するパラメータ
// ***********************************************************
var strFrom = "わたしです <ロリポップメールアドレス>";

var strTo = "あなたです <送り先メールアドレス>";

var strServer = "smtp.lolipop.jp";

var nPort = 465;
var strUser = "ロリポップメールアドレス";
var strPass = "パスワード";

// ***********************************************************
// オブジェクト
// ***********************************************************
var Cdo = WScript.CreateObject("CDO.Message")

// ***********************************************************
// 自分のアドレスと宛先
// ***********************************************************
Cdo.From = strFrom
Cdo.To = strTo

// ***********************************************************
// 件名と本文
// ***********************************************************
Cdo.Subject	= "件名の文字列 / " + new Date();
Cdo.Textbody = "テキスト本文\r\n改行は \\r\\n";

// ***********************************************************
// CC BCC HTMLメール( CC BCC はどちらか片方  )
// ※ 両方指定すると CC
// ***********************************************************
Cdo.Cc = "メールアドレス1,メールアドレス2"
//Cdo.Bcc = "メールアドレス3,メールアドレス4"
Cdo.Htmlbody = "<img src=\"http://winofsql.jp/image/winofsql.png\">"

// ***********************************************************
// ファイル添付あり
// ***********************************************************
Cdo.AddAttachment( "C:\\Users\\sworc\\Pictures\\0152-ac.jpg" )
Cdo.AddAttachment( "C:\\Users\\sworc\\Pictures\\ai\\2022-08-24-1.png" )

// ***********************************************************
// 設定
// ***********************************************************
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strServer
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = nPort
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true

Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
Cdo.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPass

// ***********************************************************
// 設定の反映
// ***********************************************************
Cdo.Configuration.Fields.Update()

// ***********************************************************
// 送信
// ***********************************************************
var strMessage
try {
	Cdo.Send()
	strMessage = "送信が完了しました"
}
catch ( error ) {
	strMessage = error.message;
}

WScript.Echo( strMessage );
【VBScript関連のカテゴリ】
posted by lightbox at 2022-11-17 16:19 | VBS + インターネット | このブログの読者になる | 更新情報をチェックする

2022年08月14日


C# : HttpClient で Post と Get する汎用 static クラス

UrlEncode をキャラクタセットを指定して送れるようになっています。受信データは、Content-Type でキャラクタセットが指定されておれば、自動的に変換されています。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Net;
using System.Net.Http;
using System.Net.Http.Headers;
using System.Text;
using System.Threading.Tasks;

namespace winofsql {

	class Tool {

		// 戻される文字列は、サーバー側で Content-Type に Charset が
		// 指定されておれば自動変換されます

		// *********************************************
		// UTF-8 POST
		// *********************************************
		public static async Task<string> Post(string url, Dictionary<string, string> param) {
			string result = "";

			try {
				HttpClient httpClient = new HttpClient();
				httpClient.MaxResponseContentBufferSize = int.MaxValue;
				HttpContent content = new FormUrlEncodedContent(param);
				var response = await httpClient.PostAsync(url, content);
				String text = await response.Content.ReadAsStringAsync();

				result = text;
			}
			catch (Exception Err) {
				result = "ERROR: " + Err.Message;
			}

			return result;

		}

		// *********************************************
		// エンコード指定 POST
		// *********************************************
		public static async Task<string> Post(string url, string encoding, Dictionary<string, string> param) {
			string result = "";
			string query_string = "";
			byte[] data1 = null;
			byte[] data2 = null;
			string data3 = null;

			foreach (KeyValuePair<string, string> kvp in param) {
				if (query_string == "") {
					query_string += "";
				}
				else {
					query_string += "&";
				}

				data1 = Encoding.GetEncoding(encoding).GetBytes(kvp.Value);
				data2 = WebUtility.UrlEncodeToBytes(data1, 0, data1.Length);
				data3 = Encoding.GetEncoding(encoding).GetString(data2, 0, data2.Length);
				query_string += kvp.Key + "=" + data3;
			}

			try {

				HttpClient httpClient = new HttpClient();
				HttpContent content = new StringContent(query_string);
				content.Headers.ContentType = new MediaTypeHeaderValue("application/x-www-form-urlencoded");
				var response = await httpClient.PostAsync(url, content);
				String text = await response.Content.ReadAsStringAsync();

				result = text;
			}
			catch (Exception Err) {
				result = "ERROR: " + Err.Message;
			}

			return result;

		}

		// *********************************************
		// URL のみ呼び出し GET
		// *********************************************
		public static async Task<string> Get(string url) {
			string result = "";

			HttpClient httpClient = new HttpClient();

			HttpResponseMessage response = null;
			try {
				response = await httpClient.GetAsync(url);
			}
			catch (Exception Err) {
				result = "ERROR: " + Err.Message;
			}
			// 接続に失敗
			if (response == null) {
				return result;
			}

			try {
				response.EnsureSuccessStatusCode();
			}
			catch (Exception Err) {
				result = "ERROR: " + Err.Message;
			}
			// HTTP 応答の失敗
			if (!response.IsSuccessStatusCode) {
				return result;
			}

			// 内容を文字列として取得
			try {
				String text = await response.Content.ReadAsStringAsync();

				result = text;
			}
			catch (Exception Err) {
				result = "ERROR: " + Err.Message;
			}

			return result;

		}

		// *********************************************
		// データ呼び出し( UTF-8 ) GET
		// *********************************************
		public static async Task<string> Get(string url, Dictionary<string, string> param) {

			string query_string = "";

			foreach (KeyValuePair<string, string> kvp in param) {
				if (query_string == "") {
					query_string += "?";
				}
				else {
					query_string += "&";
				}
				query_string += kvp.Key + "=" + WebUtility.UrlEncode(kvp.Value);
			}

			return await Get(url + query_string);

		}

		// *********************************************
		// データ呼び出し( エンコード指定 ) GET
		// *********************************************
		public static async Task<string> Get(string url, string encoding, Dictionary<string, string> param) {

			string query_string = "";
			byte[] data1 = null;
			byte[] data2 = null;
			string data3 = null;

			foreach (KeyValuePair<string, string> kvp in param) {
				if (query_string == "") {
					query_string += "?";
				}
				else {
					query_string += "&";
				}
				data1 = Encoding.GetEncoding(encoding).GetBytes(kvp.Value);
				data2 = WebUtility.UrlEncodeToBytes(data1, 0, data1.Length);
				data3 = Encoding.GetEncoding(encoding).GetString(data2, 0, data2.Length);

				query_string += kvp.Key + "=" + data3;
			}

			return await Get(url + query_string);

		}

	}
}



呼び出し

string result = await winofsql.Tool.Post(
	"http://localhost/lightbox/sample/test.php",
	"shift_jis",
	new Dictionary<string, string>() { { "field1", "日本語" }, { "field2", "表示" } });

if (result.PadRight(5).Substring(0, 5) == "ERROR") {
	Debug.WriteLine(result);
}


関連する記事

Framework4(C#) : WebClient で Post と Get する汎用 static クラス
Framework4(C#) : Windows Phone OS 7.1 : WebClient で Post と Get する汎用 static クラス
Android で Post と Get
posted by lightbox at 2022-08-14 12:02 | Win8 ストアアプリ | このブログの読者になる | 更新情報をチェックする
<<前の6件  1 2 3 4 5..  次の6件>>



Powered by Seesaa
container 終わり



✅ フリーフォントで簡単ロゴ作成
✅ フリーフォントでボタン素材作成
✅ フリーフォントで吹き出し画像作成
✅ フリーフォントではんこ画像作成
✅ ほぼ自由に利用できるフリーフォント
✅ フリーフォントの書体見本とサンプル
✅ 画像を大きく見る為のウインドウを開くボタンの作成
✅ CSS ドロップシャドウの参考デモ
✅ イラストAC
✅ ぱくたそ
✅ 写真素材 足成
✅ フリーフォント一覧
✅ utf8 文字ツール
右サイド 終わり
base 終わり