Skip to content

Instantly share code, notes, and snippets.

@mitaken
mitaken / LED.php
Created November 1, 2011 14:12
Create Toshiba W55T LED Pattern
<?php
/**
* W55TのLEDパターンを作るやーつ
*
* @cppyright mitaken
*/
class LED
{
@mitaken
mitaken / uuidchku.php
Created November 19, 2011 10:10
uuidchkuを指定ベンダー毎に出力
<?php
/**
* uuidchku modifier
*
* @version 1.0
* @copyrignt mitaken
* @see http://chakuuta3g2.hp.infoseek.co.jp/uuidchku.html
*
* [USAGE]
@mitaken
mitaken / gist:1766564
Created February 8, 2012 07:42
AppDriver
https://twitter.com/?#!/mitaken/status/167148137784422401
接続先
http://gyro.appdriver.jp/1.0.872browser?advertisement=install&refresh=0%3BURL%3Djp-ajmp-3342%3A&user=64バイトの英数字&achieve=00000000-0000-0000-0000-000000000000(0に変更してあります)
コンテンツ
<html><head>
<meta http-equiv="Refresh" content="0;URL=jp-ajmp-3342:">
<?php
class Model_Search
{
protected $_word;
protected $_target = null;
protected $_order = null;
@mitaken
mitaken / stdchrg.php
Created March 17, 2012 16:57
Clone for movie.ezweb.ne.jp
<?php
session_start();
final class Download
{
/**
* Data Directory (end with /)
* @varr string
*/
const DATA_DIR = '/path/to/data/dir/';
@mitaken
mitaken / hoge.php
Created July 3, 2012 14:29
絶対URLをもとに相対URLから絶対URLを生成
<?php
/**
* 絶対パスの取得
*
* @param string $base
* @param string $absolute
* @return string
*/
function getHttpPath($base, $absolute)
{
@mitaken
mitaken / RunAsAdmin.vbs
Created June 8, 2013 12:51
D&Dしたファイルを管理者権限で開きます hostsファイルを編集するときなどに便利です。
Option Explicit
'起動するアプリケーション
Const CstStrLaunchApplication = "notepad.exe"
'Const CstStrLaunchApplication = "C:\Program Files\Hidemaru\Hidemaru.exe"
If WScript.Arguments.Count = 0 Then
WScript.Quit
End If
@mitaken
mitaken / stdClass.php
Created November 5, 2013 14:02
stdClassのPropertyはReflectionClassで取得できない?
<?php
$class = new \stdClass;
$class->key1 = 'value1';
$class->key2 = 'value2';
$class->key3 = 'value3';
$reflection = new \ReflectionClass($class);
$properties = $reflection->getProperties();
@mitaken
mitaken / sample.vbs
Created August 9, 2014 13:46
SAPI.SpVoiceのテスト
Option Explicit
Const PROG_ID = "SAPI.SpVoice"
Dim StrMessage
StrMessage = InputBox("しゃべらす文字", PROG_ID)
If Len(StrMessage) = 0 Then
WScript.Quit
End If
@mitaken
mitaken / Aterm.vbs
Last active December 25, 2016 07:12
Aterm Router Reboot
Option Explicit
Const CstStrDomain = "http://192.168.179.1"
Const CstStrReboot = "/index.cgi/reboot_main"
Const CstStrRebootSet = "/index.cgi/reboot_main_set"
Dim ObjHttp, StrBody
Set ObjHttp = WScript.CreateObject("Msxml2.XMLHTTP.6.0")
On Error Resume Next